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Burroughs cannot accept any financial or other responsibilities 
that may be the result of your use of this information or 
software material, including direct, indirect, special or 
consequential damages. There are no warranties extended or 
Granted by this document or software material. 


You shauld be very careful to ensure that the use of this 
software material and/or information complies with the laws, 
rules, and regulations of the jurisdictions with respect to which 
it is used. 


The information contained herein iS Subject to change without 
notice. Revisions may be issued to advise of such changes and/or 
additions. 


Comments or suggestions regarding this dacument should be 
submitted to PA&S Santa Barbara at the following address: 


Burroughs Corporation 
PA&S/Santa Barbara 

6300 Hollister Ave. 
Santa Barbara, CA 98117 
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SECTION 1 
INTRODUCTION 


Pascal is a high-level programming language developed by Niklaus 
Wirth, based on the block-structured nature of ALGOL-60 and the 
data structuring innovations of C. A. R. Hoare. Because Pascal 
iS an easy-to-learn, general-purpose language, its popularity has 
increased dramatically in the Last several years, particularly in 
the university and personal computer markets. , 


The American National Standards Institute (ANSI} has adonted the 
International Standards Organization ({1SO) standard 7185 Level O 
as their standard definition of Pascal. The purpose of the ANSI 
standard is to increase the portability of Pascal programs from 
one system to another. The Burroughs B.1900 Pascal Compiler 
complies with this standard with the restrictions described later 
in this section. Throughout the remainder of this manual, the 
Burroughs B 1900 Pascal Compiler is referred to as Burroughs 
Pascal and the Pascal described by the ANSI Standard is referred 
to as ANSI Pascal. 


This manual is intended as a reference manual for Burroughs 
Pascal. As such, itsS purpose is to be a complete description of 
the syntax and semantics of Burroughs Pascal within a framework 
that is designed far quick access of:tinformation. The reader is 
assumed to be familiar with programming Language concepts and 
with the Burroughs B 1900 family of systems. Some advance 
knowledge of the Pascal Language is helpful. 


The notation used in this manual to.represent the syntax of 
Pascal is the “railroad” syntax diagram. A complete description 
of railroad syntax is provided in appendix B, Railroad Diagrams. 


The remainder of this introduction describes the compiler’s 
compliance with the ANSI standard for Pascal, the structure of 
this manual, and the documents that relate to this description of 
Burroughs Pascal. 


IMPLEMENTATION RESTRICTIONS 
The following items are restrictions in the initial Pascal 
implementation. Many will be removed ar changed in future 
releases. 
DISPOSE Procedure 


Not implemented. Dynamic memory is managed by using the 
MARK and RELEASE procedures. 
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Variant Record Declarations 
Do not require all labels to be present. 


Procedural Parameters 
Not implemented. 


Non-local GOTOs 
Not implemented. 


PACK, UNPACK 
Not implemented. 


NEW 
Tag constants not permitted is parameter list. 


The following is a list of Limits imposed by the B 1000 
implementation. 


Ibu Labels in CASE statements must be in the range O to 255 
inclusive. 


'bu Labels in variant parts af records must be in the range O to 
23 inclusive. 


bu REAL numbers have a precision of approximately eight decimal 
digits. The exponents can be within the range -47 to +68. 
The routines that print REAL numbers print a maximum of 
seven significant digits. This is done so that the last 
digit can be guaranteed to be accurate. 


Ibu Maxint is 8388607. 


{bu Routines with local file variables cannot be used 
recursively. 


'bu A file must not be a component of any structured type. 


'bu The maximum nesting of ltexic levels is eight. 


ERRORS DURING EXECUTION 


The following errors can be detected during the execution of a 
program. 


Integer overflow 

Real overflow 

Stack limit exceeded 

Heap limit exceeded 

Text file buffer overflow 

Division by zero 

Value of end of file wrong for file operation 
Operation on improperly defined file 

Nil pointer dereference 
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Undefined pointer dereference 

Released pointer dereference 

Array index out of range 

No label corresponding to case selector 
Record variant accessed with incorrect tag 
Value out af subrange 


Some operations may cause vatues to go out of range with no error 
reported. Complete checking is not guaranteed, but data will not 
he altered or ltost as a result of incomplete checking. The 
following errors are not checked: 


Changing variables in the List of a WITH statement 

GOTOs from outside to inside a structured statement 

Side effects, especially those thwarting run-time checks 
Dangling pointers as a result of a RELEASE operation 
Operations on an uninitialized variable 

Record variable accessed with incorrect tag type 


STRUCTURE OF MANUAL 


The structure of this manual is top-down; that is, larger or 
higher-level syntactic components such as programs, declarations, 
and statements, are described first and smaller or lower-level 
components such as variables and identifiers are described last. 
A brief description of each section and appendix follows. 


Section 1, Introduction, introduces the language and the manual. 


Section 2, Program Structure, describes Pascal programs, program 
parameters, and blocks. This section also describes the concept 
of scope as it applies to identifiers and activations. 


Section 3, Declarations and Definitions, contains a description 
of the declaration part of a block, including type definitions 
and variable declarations. Concepts relating to data types in 
Pascal are covered under Type Definitions. 


Section 4, Statements, describes the statement constructs 
available in Pascal. 


Section 5, Expressions, describes all expression types and 
includes a discussion of the precedence of operators within 
expressions. 


Section 6, Predefined Procedures and Functions, explains the 
ready-made procedures and functions that are available. These 
procedures and functions provide facilities for file handling, 
type transfer, dynamic variable allocation, arithmetic functions, 
and other general features. A detailed description of Pascal 
input/output concepts and how they relate to the Burroughs B 1900 
system is included under Fite Handling Procedures. 
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Section 7, Variables, describes variables of various types and 
how they are referenced within the program. 


Section 8, Basic Components, defines some of the small, 
frequently used components of the syntax of Pascal, Such as 
identifiers and numbers. 


Section 9, Interpretation of Program Text, describes how the 
Burroughs Pascal compiler interprets the program information it 


reads from its input files. This section includes lists of 
reserved wards, predefined identifiers, and caontext-sensitive 
identifiers. A description of the use of comments within the 


program text is also included. 


APPENDIX A, Compiling, Executing and Analyzing a Pascal Program, 
defines the syntax and semantics of the aptions that can be used 
to direct certain aspects of the compilation and execution of 
Pascal programs. 


Appendix B, Railroad Diagrams, contains a description of the 
notation used throughout this manual to represent the syntax of 
the Pascal language. 


Appendix C, EBCDIC and ASCII Character Sets, provides two tables, 
the first in EBCDIC sequence and the second in ASCII sequence, of 
the B 1000 codes. Each table includes the hexadecimat and 
ordinal numbers for the EBCDIC and ASCII codes as well as the 
assigned graphics and their meanings. 


RELATED DOCUMENTS 
The following documents contain information of interest to the 
users of this manual: 
American National Standards Institute {ANSI} 
Programming Language Pascal (X3J9/81-093) -- Proposed 


Pascal User Manual and Report by K Jensen and N. Wirth 
Springer-Verlag, New York, 1978 


B 1000 Systems System Software Operation Guide, Volume 1 
Form No. 1151982 


B 1000 Systems System Software Operation Guide, Volume e2 
Form No. 1152097 


Burroughs CSG Standard for Compiler Control Images 
Burroughs No. 1955 2959 
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SECTION 2 
PROGRAM STRUCTURE 


Syntax diagrams for all the Pascal program elements discussed in 
this section are presented in figure 2-1. 


PROGRAM UNIT 


A <fraogram unit> is the most global Pascal construct, 
encompassing all data definitions and algorithm descriptions that 
are to be compiled as a unit. The form of the <program unito is 
very similar to the forms of the procedures and functions that 
can be defined within it. 


The <program heading> includes a program <identifier>, which is 
not used for any subsequent purpose, and the optional 
<pragram paramenters>. 


The other major component of the <program> is the <block»>. This 
contains the data definitions and algorithm descriptions of the 
program. Details of the syntax and semantics of the program 
block begin later in this section and continue through the 
remainder af this manual. 
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Program Unit syntax: 


---- <program>» ------------------------------------------------------- 


<program> syntax: 


---- <program heading> ---- ; ---- <block> ---- |. ------------+------ Lo 


<program heading> syntax: 


---- PROGRAM ~- <program identifier» --+---------------------------- += 


<program identifier> syntax: 


—---- <identif ier> ------- 9 cen - 


<program parameters> syntax: 


<external file specification> syntax: 


---- <external file identifier» ~-~-----~---~--—---~--------—---~---~-------- - 
>--------- +--+ +-----~ 
! ee + { 
1 | | \ 
+---- : -- FILE « --4+-- <attribute phrase» --+-- >» --+ 


<external file identifier> syntax: 


---- <identifier» --~---~-~-------------~--~----~---------~----~----+-------- - 


Figure 2-1. Syntax Diagrams: Pascal Program Elements 
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<attribute phrase> syntax: 


--+ <Boolean-value file attribute> = --+ TRUE -------------------- +- 
| | l 
! ! FALSE ------------------~+ + 
| { 
+ <integer-value file attribute» = --+---+-- <unsigned integer> + 
I ! | | 
! + + + | 
| ! { | 
| + —- + i 
! | 
+ <mnemonic-valued file attribute» = <mnemonic valuB> --------~--+-— + 
I ! 
+ <String-valued file attribute> = <character string> ~--~---~--+-— + 
I l 
+ <real-valued file attribute» = <number> --~------------+~---— + 

<block> syntax: 

moo fee +---- ¢statement part> -----~---—<-+++- 


! | 
+---- <declaration part> -—---+ 


Figure 2-1 Continued. 
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An example of a program follows. 
Example: 
program EXAMPLE{INPUT, OUT FILE : file <maxrecsize= 132>), 


var OUT FILE : text, 
answer : integer; 
val : integer; 


function FACT (n : integer) : integer; 
begin 
if n > 1 then 
FACT := n * FACT{n —- 1) 
else 
FACT := 1; 
end; 


begin 

rewrite(QUT FILE); 

read(INPUT, val); 

answer := FACT(val); 

writeln{QOUT FILE, “The factorial of ‘,val,” equals “°,answer]); 
end. . 


This program, named EXAMPLE, program computes the factorial of a 
number entered through a file named INPUT. The factorial is 

id computed by recursively calling the procedure FACT. The answer 
is written to file OUT FILE, which may be label-eqgquated to a 
printer file. ~ 


NOTE 


The names EXAMPLE, INPUT, OUT FILE, and FACT 
are spelled in upper case here for ease of 
identification. Pascal does not distinguish 
between upper-case and lower-case spelling 
except in literals. 


PROGRAM PARAMETERS 


The <program parameters> specify permanent files that the program 
is to read or write. Optionally, various file attributes of the 
named files can be assigned values. 


An <external file identifier> specified in the program parameters 
must tater appear in the <variable declarations> part of the 
program <block>, where it must be assigned a <file type> or a 
<textfile type>. The predefined files named INPUT and OUTPUT are 
exceptians to this rule; their appearance in the 

<program parameters> iS equivalent tao declaring them in the outer 


Form 1152048 2-4 Fite DOCUMENT/PASCAL 


Burroughs 


B 1000 PASCAL LANGUAGE MANUAL 


block of the program, they must not appear in the 
<variable declarations> of the program. 


When a file is named in the list of <program parameters>, the 
PROTECTION file attribute for that file is automatically set to 
SAVE. Thus, a file created by the program becomes a permanent 
file. ; 


For further information on files, textfiles, and file attributes, 
please refer to I/O Concepts in section 6. 


The FILE <« <attribute phrase» >» construct (that is, the ability 
to specify file attributes for program parameters) is a Burroughs 
extension to ANSI Pascal. 


PROGRAM BLOCKS 


A <block> is a set of related declarations and statements. The 
declarations describe data and the statements describe actions. 
The <dectaration part> and the <statement part> of blocks are 
described in sections 3 and 4. 


Pascal is a block-sStructured language derived from the ALGOL 
Family of languages. The Pascal <program> is basically a black 
that may itself contain nested blocks in the form of procedures 
and functions. Two related properties of blocks, Scope and 
activation, are fundamental to the structure of a Pascal program. 


scope and activation. 


Scope 


Scope is a property possessed by all identifiers and tabels in a 
Pascal program. The scope of an entity refers to the region of 
the program text within which that entity has a specified 
meaning. The text of a program is divided into these regions by 
the occurrences of blocks, record definitions, WITH statements, 
and record variable qualifications. 


Scope: Blocks 


A <blaock> defines a scope for all identifiers and labels declared 
in the <declaration part> or <formal parameter List» of that 
block. If an identifier is declared in block x, that identifier 
can be referenced with the defined meaning in all of block x and 
in all procedures, functions, and record definitions within black 
x, with the following exception: 


If the same identifier is redefined in the region of a 
nested procedure, a nested function or a nested record 
definition, the former definition is unavailable in that 
region and the new definition applies. 
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Figure e-e illustrates the concept of scope for blocks. In 
viewing the figure, note that a reference to an identifier or 
label is always to its clasest (most local) definition. 
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program o: 


var a, {declaration of a and b} | 
b : real; | | scope of 
b of og 
procedure q; 
var b : real; 
begin 


{statements of q} 


end: 
begin 


{statements of p} 


end. 


Figure 2-2. Illustrations of the Scope of Blocks 


program p; 
type r = record 
fl : real; <--! scope of 
fe : (red, green, blue); | f1, fe 
end; <--! 
begin 
{statements of p} 


end. 


Figure 2-3. Scope of Record Definitions 
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Scope: Record Definitions 


The region of a <record type> 


field identifiers defined in that record. 
apply to records as apply to blocks: fie 


redefined in embedded 


In general, if the occurrence of the definition of an 


or tabel is in region 


referenced outside of 


records. 


definition defines a scope for all 


The same nesting rules 
td identifiers may he 


x, that definition does not apply to a 
region enclosing x. However, there is one exception: the 
appearance of an <enumerated caonstant> in 
definition defines that constant identifi 
containing the definition. Thus, if such a definition occurs 
within a record, the enumerated constant 


the record. 


an <enumerated type> 
er for the closest block 


identifiers can be 


In figure 2-3, the <enumerated constant>s red, green, and blue 


can be referenced within the block 


Every Pascal program has an implied enclo 


predefined identifiers are automatically declared. 


in which type cr 


js defined. 


identifier 


sing region in which alt 


region encloses the program, these identifiers can be redefined 


at any point. 


The following rules must be observed when defining identif 


and labels: 


iers 


thu Any identifier or label that is referenced either must be 
explicitly defined or must be one of the set of predefined 


identifiers. 


hu With one exception, any reference to 
must textually follow its definition 
identifier used to denote the <domain type> of a 
In this case, the identifier need only be 


<pointer type>. 


defined before the end of the <type definitions» 


appears. 


thu An identifier or 


an identifier or 
The exception 


labe 
is an 


in which 


Label cannot be defined more than once in 


the same procedure, function, or rec 


The definition of an identifier or tahbel 


beginning to the end of the region, 


definition to the end. 


Thus, a use of an 


before it is defined is an invalid forwar 
Same identifier is defined in an enclosin 
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its 


identifier in a region 
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Scope: WITH Statements 


A WITH statement or record variable qualification defines a new 
scope for the field identifiers of a referenced record variable. 


In a WITH statement, the occurrence of a <record variable» 
defines a scope for each <field identifier> within that record. 
The scope extends from the occurrence of the record variable to 
the end of the WITH statement. WITH statements have the same 
nesting properties as blocks and records. That is, if a WITH 
statement causes a field identifier to be defined that has the 
same spelling as an identifier in an enclosing region, the local 
(that is, the record) definition applies within the WITH 
statement. 


Scope: Record Variables 


Record variables may be “qualified" using the syntax 

<record variable>.<field designator>. In effect, this syntax 
establishes a scope for all the field identifiers of the record; 
the scope extends from the period (.j) to the end of the 

<field designator». 


Activation Records 


When a <block> is entered, the appropriate tocal variables must 
be alteacated. These include variables that appear in the 
«variable declarations> for that <block>, <value parameter>s from 
the <formal parameter lList>, and the function result {if the 
<block>s is a function}. These tocal variables are allocated in 
an area of storage referred to as an “activation record." Each 
invacation of a procedure or function has its own activation 
record, as does the program block. 


Storage for an activation record is allocated on entry to the 
block and deallocated when the block is exited. Thus, on entry, 
all variables declared within a block are undefined for that 
invocation. (Pascal local variables differ from FORTRAN tocal 
variables and from ALGOL OWN variables; those retain their 
previous values when the block is re-entered. } 


When a procedure or function is called, the activation record for 
the current block is saved before the new one is allocated. The 
processes of allocating and deallocating activation records can 
be viewed as operations ona stack. Thus, if procedure p with 
tocal variables a and b calls procedure q with local variables c 
and d, the storage allocation can be viewed as shown in figure 
2-4. 
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A procedure or function can call itself, either directly or 
indirectly. If, in the previous example, procedure gq calls 
procedure p, the stack will contain the activation records shown 
in figure e-5. 


Logically, this process could continue indefinitely; however, 
the system would eventually run out of storage space. 


References to variables in a block refer to the most recently 
allocated activation record for that block in the stack. 


Note that these rules apply to variables. Most are explicitly 
declared in a block. Variables can also be allocated dynamically 
through the use of the procedure NEW. For a discussion of the 
dynamic attocation of variables, refer to Dynamic Allocation 
Procedures in section 6. 
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| d | 
| C I 
PONS Rohe eee a [Bote soee ot oe AC ee 
b I | b { | b | 
I a ! ! a t ! a ! 
Before While in After 
procedure q procedure procedure 
is called q gq is exited 
Figure 2-4. Procedure p Calls Procedure q. 


{ bh ! second activation record of op 
|: 
! d ! activation record of q 
1 col 
{~—~------- | 
! b ! first activation record of p 
I qa il ; 

Figure 2-5. Procedure q Calls Procedure fp. 
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SECTION 3 
DECLARATIONS AND DEFINITIONS 


Following is the syntax diagram for the <declaration part> of a 
<olock>. 


Syntax: 

lal ane ae la a ala eet earlier iene inten aeienienienteneaaaeteateieenteatae +e eee > 
| | 
+---- <label declarations» —-------------------- + 

> H+ ere +—------ > 
H ! 
+---- <Constant definitions» ~---~--------------- + 

> a th rrr | clealaeieateateniaeietatenlasienteateren > 
| | 
+---- <type definitions> ----+~~--------------~--~-~- + 

» oo + rrr 4—-------------- > 
| ! 
+---- <variable declarations» ~~---------------- + 

> ---4-----------------------------~--~-------------- po enannnn-n- nH ] 
| { 
+---- <procedure and function declarations> ----+ 


The declarations and definitions are all optional, but when two 
or more are used, they must appear in the sequence shown in the 
diagram. 


The <constant definitions>, <type definitions>, and 

<variable dectarations> primarily are used to describe the data 
on which the program iS to act. The <label declarations> and 
«procedure and function declarations> are tools used in 
describing the program algorithm. These components are described 
in the following sections, in the order in which the components 
appear in the <declaration part>. 


LABEL DECLARATIONS 


<label declarations» identify <labelos for use within the 
<block>. The <label>s are used to indicate statement locations 
to which program control can be transferred using the <goto 
statement>. Any <label>» used within a <block> must be declared 
in the <declaration part> of that <block>. 
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A <label> may have up to four significant digits. (Leading zeros 
are not significant. digits.) Therefore, <label> range is O 
through 9999. 


<lLabel declarations» syntax: 


~--- LABEL --+-- <label> 
<label>» syntax 


+<---/ 4 \-~---+ 


CONSTANT DEFINITIONS 


The <constant definitions» associate <identifier>s with constant 
values, allowing those values to be referenced by name ratnet aa 
than by specifying the actual vatues. througheut the program: The 
type of each constant being. -dectared: is determined by the type of 
the constant on the right. s ide. of. the equat sign, whith may be a 
Literal value of .a predefined tyme On ds Eee declared 
constant ; identifier. mt one os 

MAX INT iS. predefined ieee Peonstant: (lent at ters that has the 
value=-8 , 3884607 (2: raised” to," the s23rd™power minus 1). TRUE and 
FALSE are predefined values “OF. the <Boodlean ‘type>. <identifter>, 
«character Literal», <unsigned integer>, <unsigned real», and 
<character string> are defined in section 8». Basic Components. 


Examples: 


always — 
= 7 
maxhits 
minvalue 
greeting 
intra 
werd. 


greeting, 
“Don? “f-«fho: BS 


aes we Ba > 


a ‘ ae shag are . 
In ekdinat's a always ig” | <Boolean Gonstant Tri “ef ier> with the. 
value. J.RUE; thus, always may be used wherever a. 

<Boovean Gonstant> is valid. 


In example 2, the letter a is a <char constant identifier> with a 
as its value. 


In example 3, maxbits is an ¢<integer constant identifier> with 
the value 48. ; . ee 


*. 
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In example 4, minvalue is a <real constant identifier> with the 
value -—4.5. 


In example 5, greeting is a <string constant identifier> with the 
value “Hello’. 


In example 6, intro is a <sString constant identifier> with the 
Same value as greeting (example 5). 


In example 7, warning iS a <String constant identifier>» with the 
Value “Don’t do it’. 


<constant definitions> syntax: 


---- CONST --------------~-----------~----~------------------- 
tr re + 
| ! 
ces <Boolean constant identifier> = <Boolean constant» = ep ee 
: <char constant identifier> = <char constant> * 
' <integer constant identifier> = <integer constant» : 
<real canstant identifier> = <¢real constant» ' 
+ <string constant identifier> = <string constant» + 
<Boolean constant> syntax. 
nec a TRUE ---------~----------~-~------- : me ee ee 
a ar Rt See ees ees Cee ace rep me + 
ites <Boolean canstant identifier> a 
<char constant> syntax: 
“ier ers «character lLiteral»---------- $e ee 
{ 
see <char constant identifier» ae 
<integer canstant> syntax: 
----+----- +---+-- MAXINT ------------------------- +-------- =H 
| | ! | 
; + a’ <unsigned integer>»---~---------- : 
‘ - ‘ qe <integer constant identifier» eer 
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<real constant> syntax: 
loeleateas sheatentententent +---+-- <unsigned real» --~------------- 4+------ ~~ - 


+-- <real constant identifier» ----- + 


«string constant> syntax: 


----+-- <character string>------------- $a n-ne re 
! l 


+-- <String constant identifier> --+ 


TYPE DEFINITIONS 


Every variable, constant, and function has an associated type 
which defines its range of valid values, its internal and 
external representation, and the operations that may be performed 
on it. The <type definitions» allow user-defined types to-be 
named and their characteristics to be specified. 


Discussions of Some general concepts that apply to types are 
presented next, followed by descriptions of all the types, 
presented in alphabetical order. 
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syntax: 


<array type identifier> 


<Boolean type identifier> 


<char identifier» 


type 
<enumerated type identifier> 
<file type identifier> 
<integer type identifier> 
<pointer type identifier> 


<real type identifier> 


<record type identifier» 
<set type identifier> 
<subrange type identifier> 


<textfile type identifier> 


Structured, 


structure. 


<type> syntax: 


—S eae ee 


+—-— 


+--— 


<simple type> 
| 
<structured type> —-+ 
! 
<pointer type» --—--- + 


Simple Types 


Variables of simple types have only one component. 
predefined types Boolean, 


types. 
well 
types. 


Form 1152048 


char, 
User-defined derivatives of 


into three categories 


integer, 


as enumerated types and subrange types, 


<array type> --------- a 
«Boolean type» ~----- * 
«Char type> --------- * 
<enumerated type> ee 
CPAte TY Pe) soseaeeoG + 
<integer types -—----- : 
«pointer type» —------ ; 
cCeal (Ype> -=-—-=--=— ‘ 
<record type> ------- ‘ 
<set type» --~-~-~---- * 
(SuUDrange types -=4=- * 
<textfile type» —----- + 


and Pointer Types 


that reflect their 


The 

and real are simple 
these predefined types, 
are alsa simple 


as 
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<simple type> syntax: 


wT <Boolean type>------- frm 
ia <char type>»---------- ‘ 
aa <enumerated type> aaa 
ese <integer types ----~-- ‘ 
os <creal type» --~------ + 
ooo <Subrange type> ----- : 


Structured Types 
Variables of structured types are composed of multiple 
components, which may be of one or more simple types or may be 
structured themselves. 


<structured type> syntax: 


a= a <array type> Bee ROS PR Sepa gee Pr een ee 
aa <set type> --------- * 
ae% <record type>» ------ ; 
ae «file type» -------- + 
—- <textfile type> er 


Painter Type 


Variables of pointer types contain values that are references to 
variables of simple ar structured types. 


«pointer tynpe> syntax: 


—--- <pointer type> ~~~-----~--~--------~----~~----------— - +14 


Ordinal Types 


Most simple types are alsa ordinal types. In an ordinal type, 
the values have a well-defined sequential relationship to each 
other. Each value is assigned an ordinal number that uniquely 
identifies its position in the sequence. Thus, a value of an 
ordinal type can have a successor and a predecessor in the 
sequence. Values can also be compared to each other (for 
example, greater than, less than) based on their ordinat numbers. 
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The only simple type that is not an ordinal type is the <¢real 
type>. 


<ardinal type> syntax: 


es «Boolean type>------ : mo ere - 
ae <char type> -------- : 
abs <enumerated type> ane 
ee <integer type>x------ * 
bee <subrange type> tee 


Type Identifiers 


In <type definitions> and <variable declarations>, a type can 
usually be defined in one of two ways: 


(1) as a new type (that is, by using the <new array type>, 
<new enumerated type>, <new file type>, <new pointer type>, 
<nmew record type>, «new set type>, <new Subrange type>, or 


(2) as a derived type, where an <identifier>» that has already 
heen defined or was predefined as a type identifier is 
specified. 


In other contexts requiring a type specification, new types are 
not allowed; previously defined <type identifier>s must be used. 
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<type identifier> syntax: 


ara BOOLEAN--------~---------------- : So latestanteatenteatententententantesieteatealenteneatententententenetententententen 

ast CHAN, ates esac eeaeiiee see ! 

posh EGRI USA eae ee eeee eens * 

iS REAL ~--------~----------------- 

oa NENT (oleae eee Stee cols + 

os <array type identifier> ------- ' 

es <Boolean type identifiers ----- + 

ee <char type identifier» ~--~~----- : 

f56 <enumerated type identifier» aoe 

on <file type identifier» -------- * 

a <integer type identifier» ~---- : 

+e <pointer type identifier> -~---- ! 

$a <real type identifier» -------- + 

fe <record type identifiers ------ * 

ge <set type identifiers ~-------- + 

se <subrange type identifier>s on 

$--— ctextfile type identifier» ~---4 

Same Types 

Because types can be defined in different ways, it is not always 
clear when two types are actually the same type. The concept of 
"same type” is used when describing how <variable parameter>s are 
matched in procedure and function invocations. More important, 
the definition of “Same type" is used to define compatible types 
and to assignment compatibility. See Compatible Types, later in 


this section. 


The <type identifier>s T1 and T2 are the same type if ane of the 
following rules is true: 
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Rule e Both typ 


In the simplest ca 
T2, as shawn in th 


TYPE T1 = 
Rule e@ describes t 


ancestor. The sim 


TYPE T3 
T1 
Te 


Ti is the same typ 
T1 and Te are also 


TYPE T5 
T4 
T3 
Te 
Ti 


tod a ot tt 


In this example, T 
INTEGER. T1 equal 
T2 are the same ty 


In order to apply 
associated <type i 
and 177, defined be 
structure, they ar 


TYPE T6 
T7 


However, T6 and T7 


TYPE T6& 
Ae 


Compatible Types 


In some cases, it 
but they must bec 
be valid. In part 
expressions must oO 
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is defined to be equal to the other. 
es are of the Same type as a third type. 


se of same type, T1 is defined to be equal toa 
e following example: 


Te; {Rule 1} 


he situation in which T1 and Te have a common 
plest case is the following: 


INTEGER; 

T3; {Rule 1} 

T3; {Rule 1} 
e as Te by rule ée. In the following example, 


of the same type: 


INTEGER; 
TS; 
INTEGER; 
T4; 
T3; 


2 equats 74, T4 eguals 15, and T5 equals 
s 73, and T3 equals INTEGER. Therefore, 7T1 and 
pe, namely INTEGER. 


the same-type rules, all types must have 
dentifier>s. For example, even though types T6 
low, have exactly the same characteristics and 
e NOT the same type: 


ARRAY [1..5] OF INTEGER; 
ARRAY [1..5] OF INTEGER; 


would be the same type if declared as follows: 


ARRAY [1..5] OF INTEGER; 
T6: 


is mot necessary for types to be the same type, 
ompatible types for a particular construct to 
icular, the operands in most relational 

e of compatible types. Also, the 
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<Case constantos in the ¢variant> part of a <record type> must he 
type-compatible with the type of the <variant selector>. 


Two types, T1 and T2, are compatible if any of the following 
rules are true: 


Rule 1 T1 and T2 are the same type. 


Rule 2 One type is a subrange of the other, or both types are 
subranges of the same type. 


Rule 3 T1 and T2 are <set type>s with compatible <base type>s 
and both T1 and Te are packed or both T1 and T2 are not 
packed. 


Rule 4 T1 and T2 are <string type>os with identical character 
counts. 


Examples: 


type 
t1; 
{tl and te are compatible by rule 1.} 


1..10; 

5..7,; 

2e0..30; 

t4, and t5 are compatible by rule 2.} 


set of char; 


set af ‘a’..’2’; 
{t6 and t7 are compatible by rule 3.} 


= packed array [1..10] of char; 
= packed array [1..7] of char; 
8 and t9 are compatible by rule 4.} 


t8 
tg 
{t 


Assignment Compatibility 


Assignment compatibility refers to the validity af assigning a 
particular value to a variable of a certain type. The rules of 
assignment compatibility are applied under the following 
circumstances: 


In an assignment statement, the value of the <expression> 
must be assignment compatible with the type of the variable 
or function result being assigned. 


An expression used as an array index must be assignment 
compatible with the index type in the array declaration. 


The initial value and final value in a <for sStatement> must 
be assignment compatible with the type of the control 
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variable. 


An actual parameter must be assignment compatible with the 
type of the format value parameter it is to match. 


The values returned by the read, time, runtime, and date 
procedures must be assignment compatible with the parameters 
passed to those procedures. 


In the definition of assignment compatibility that follows, V1 
and V2 represent two variables, and 71 and Te are the types of ¥1 
and Ve, respectively. As an illustration, consider the 
assignment statement V2 := V1. Vi iS assignment compatible with 
Ve (or any variable of type Te} if any of the following 
statements isS true: 


1... 


Ti and T2 are the same type and that type is not a 
<file type> or <textfile type>. 


2. V1 and Ve were declared in the same 
<Variable identifier tist> in a variable declaration. (This 
rule allows two variables of the same unnamed type to be 
assignment-—compatible). 

3. T2 is the <real type> and 71 is the <integer type>. 

4. T1 and T2 are compatible ordinal types and the value of V1 
is valid for type Te. 

5. T1 and T2@ are compatible set types and all members of the 
set of V1 are valid for type Te. 

6. T1 and Te are compatible <string typeos. 
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Examples: 


type t1 
te = t1; 
(Alt values of types t1 and t2 are assignment-compatible 
with all variables af types t1 and te, by rule 1.) ° 


Vb 

ve : array [1..10] of Boolean; 

{Atl values of v1 are assignment—-compatible with ve, and vice 
versa, by rule 2.) 


v3: real; 

v4: integer; 

(All values of v4 are assignment~compatible with v3 by rule 
3. V3 iS not assignment”compatible with the type of v4. 
That is, v3 := v4 is allowed, but v4 := v3 is not allowed. ] 


v5: 7..10; 

v6 : 1..20; 

(Atl values of v5 are assignment-compatible with v6 by rule 
4, but onty some values of v6 are assignment-compatible 
with v5.) 

v7 : set of ‘’a’..’2°; 

v8 : set of char; 

(All values of v7 are assignment—compatible with v8 by rule 


5, but only some values of v8 are assignment—-compatible 
with v7, namely those set values that contain only characte 


’ ’ 


between a and z°, inclusive.) 


s va 


v9 : packed array [1..10] of char; 

v10: packed array {1.. 10] of char; 

(ALL vatues of v9 are assignment-—compatible with vi0O, and 
vice versa, by rule 6.} 


Tyne Descriptions 


Array Types 


An array i8 a structured type containing identical components of 
a specified <element typed. The array is indexed by the values 
of a given <index type>. The number of components in the array 
is determined by the number of values in the <index type>. The 
<index type> cannot be the <integer type>, but it can be a 
<subrange type> whose host type is the <integer type>. 


If multiple <index type>os are specified, the array is 
multidimensional, each dimension being indewed by ane 

<index type>. An array with N dimensions is synonymous with an 
array of arrays with N-1 dimensions. | 
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An <array type> that includes the designation PACKED will be 
stared in as economical an amount of Space as is practical, 
possibly at the expense of speed in accessing the components. 
When a multidimensional array is declared using a list of 

<index type>s:and the array is designated PACKED, all component 
arrays of that array will atso be PACKED (that is, all dimensions 
of the array are considered PACKED). 


Examples: 
type t1 = array {Boolean} of array [1..10] af array [size] of real 
te = array [Boolean] of array [{1..10, sizej of real; 
t3 = array [Boolean, 1..10, size] of real; 
t4 = array [Boolean, 1..10] of array {size} of real; 


Types t1, té,:t3, and t4 are equivalent ways of expressing a 
three-dimensional array with a <component type> of type real and 
with Boolean as its first dimension, the subrange 1..10 as its 
second dimension, and the <ordinal type identifier> size as its 
third dimension. 


type pal = packed array [1..10, 1..8] of Boolean; 
pe = packed array [{1..10] of packed array [1..8] of Boolean; 


Types p1 and pe are equivalent ways of declaring a packed array 
with “packed array [1..8] of Boolean" as its component type. 


Strings are a special class af arrays that can be used in ways 
that arrays normally cannot be used. For example, a variable of | 
<string type> can be assigned a <character string> value of the 
same length; individual characters in the <character string> are 
assigned to successive components of the array. 
Example: 

type str = packed array [(1..10] of char; 


Type str is a <string type> that contains ten characters. 


<carray type> syntax: 


----+-- <new array type>»----------- $----- + 
! | 
+-- <array type identifier> ~-~+ 
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<new array type> syntax: 


----4+--~----- +~ ARRAY [ eri <index type> p8 ]) OF -- <element typed 
| | 

+ PACKED + 

<index type> syntax: 

—---- <ordinal types ---~---------------~---~------------~------------~+-- 
<element type>o definition: 

An <element type> is any <tyne> that is not a «file typed, a 
<textfile type>, aor a <structured type> containing a <file type> 

or a <textfile type> as a component. 

«string type> definition: 

A <string type> is an array that is defined as PACKED ARRAY 

{1..n] OF CHAR, where n is greater than or equal to 1. 

Baolean Types 

Boolean is a predefined ordinal type that comprises the values 

TRUE (value = ordinal 1) and FALSE {value = ordinal O). All 

<Boolean type>s are of the same type. 

Example: 


tyne b = Boolean: 


Type b is a <Boolean type identifier>. 


<Boolean type> syntax: 


~--- +-- BOOLEAN --~------------------+-~-------------~-----~-------+----- 
| I 


+-- <Boolean type identifier> --+ 
Character Types 
The character type (<char type>) is a predefined ordinal type 
that comprises the standard character set ({EBCDIC unless changed 
to ASCII using the STRINGS compiler control option. The mapping 


of characters to ordinal numbers is defined in appendix C, EBCDIC 
and ASCII Character Sets. 
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All <char typa>s are the same type. 
Examples: 


char; 
ch; 


type ch 
c 


Types ch and c are both <char type identifieros. 


<char type> syntax: 


+-- <char type identifier> ----+ 


Enumerated Types 


An ¢enumerated type> is a simple, ordinal type that comprises the 
values specified in the associated list of 

<enumerated constantos. The order in which the 

<@nmumerated constant>s appear determines their ordinal numbers: 
the first <enumerated constant» is assigned the ordinal number O, 
and each subsequent <enumerated consStant> is assigned an ordinal 
mumber that is one higher than its predecessor. 


The appearance of an <identifier> as an <enumerated constant> in 
an <enumerated type> definition defines that <identifier> for the 
block. Because the <identifier> cannot be redefined in the same 
block, the same <identifier> cannot be uSed in two 

<enumerated type> definitions in the same block. 


Examples: 


type color = (red, yellow, blue, green, tartan); 
card suit = {cluob, diamond, heart, spade); 
tool = (rake, hoe, spade); { error } 


Type color is an <enumerated type identifier>. The 

<enumerated constant> red has the ordinal number O, yellow the 
number 1, Blue the number @, green the number 3, and tartan the 
number 4, 


Type card suit iS an <enumerated type identifier>. The 
<enumerated constant> club has the ordinal number of O, diamond 
the number 1, heart the number 2, and spade the number 3. 


Type tool is in error because the identifier spade has already 
been declared (#8 a value of type card suit) in this block. 
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<enumerated type> syntax: 
<new enumerated type>---------- foo 
| 
«enumerated type identifier>» -—-+ 


<new enumerated type> syntax: 


---- ( +-- <enumerated constant> -—-+ ) 


<enumerated constant> syntax: 


---- <identifier> 


File Types 


A <file type> is a structured type of identical components. It 
differs from an array in that it is not indexed and has no 
specified upper bound. Instead, components are accessed through 
predefined procedures. For additional information on files, 
please refer to I/O Concepts in section 6. 


The designation PACKED has no effect for file types. 
Example: 


tyne employee = record 
name, firstname : packed array [1..20] of char; 
department code : Q..99; 
employee no : QO..9999; 
end: ~ 
employee file = file of employee; 


Employee file is a <file type identifier>; each component of the 

file is an employee record containing the following fields: 

name, firstname, department code, employee no. 

<File type> syntax: 

---- +-- <new file types----------+---~----------~~----—~---—~----- =~ +--+ 
{ ! 
+-- <file type identifiers --+ 

«new file type syntax: 

---- +--------+---- FILE -- OF -- <component type> 


| 
+ PACKED + 
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<component type> definition: 
Any <type> that is not a <file type>, a <textfile type>, or a 


«structured type> containing a <file type> or a <textfile type> 
as a component. 


Integer Types 
Integer is a predefined ordinal type that comprises the integer 
values from —-MAXINT toa MAXINT, inclusive. The ordinal number of 
a value of type integer is the value itself. 
Example: 
type int = integer; 
Type int is an <integer type identifier>. 
<integer type> syntax: 
-~---+-- INTEGER ~------------------- 4+---------------- 
| ! 
+-- <integer type identifier> -—-+ 
Pointer Types 
A <pointer type> is a special type that is used to reference 
dynamically allocated variables. A variable of a <pointer type> 
may reference a variable of its declared <domain type> or may be 
NIL, that is, may not be currently referencing a variable. 
Please refer to Dynamic Altitocation Procedures in section 6 for 
details on dynamic variables. 


Example: 


type ptr to client = @client; 


client = record 
name : packed array [1..20] of char; 
son, daughter : ptr to client; 
end: ee 


The type ptr_to client is a pointer to a record of type client. 


<pointer type> syntax: 


----+-- <new pointer type>---------- t------- 
| | 
+-- <pointer type identifier> --+ 
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<new pointer type> syntax: 
—-~-~ @ --- <domain typP@> ---~--- een n wenn nn rn ne en ee enn ene 
<domain type> definition: 
Any <type identifier> except a <file type identifiers, a 
<textfile type identifier>, or a <tynpe identifier> of a 
<structured type> containing a <file type>o or <textfile type> as 
a component. 

Real Types 
Real is a predefined simple type that comprises the range of 
floating-point approximations. Real numbers in B 1000 Pascal 
have a precision of approximately seven decimal digits. The 
routines that print real numbers print a maximum of seven 
significant digits in order to guarantee the accuracy of the last 
digit. The exponent range is from E-47 to E+68. 
Example: 

type r= real; 

Type r is a <real type identifier>. 


«real type> syntax: 


+--— <real type identifier> --+ 


Record Types 


A <record type> is a structured type that can contain components 
of different types. These components, called "fields," are 
referenced by name, not by index (as with arrays) or by current 
position {as with files). 


A record may include a <fixed part> or a ¢variant part> or both 
or neither. A record that includes neither a fixed nor a variant 
part contains no components and is said to he empty. 


The <fixed part> of a record consists of a group of fields that 
apply to all variables of the <record type>. Each field has a 


<field identifier> by which it is referenced and an associated 
<field type>. 
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The <variant part> of a record is a collection of field 
definitions, called “variants.” The <variant part> allows 
different variables af the same record type to have different (or 
partly different) formats, depending on the run-time value of the 
<variant selector>. Because the format is chosen at run time, 
there must be one {and only one) variant defined for every 
possible value of the type specified by the 

<aordinal type identifier> in the <variant selector». 


The interpretation of the variants at run time depends on whether 
Or not the <variant selector> includes the optional 

<field identifier>. This <field identifier> is called the “tag 
field" and is allocated as a field within the record. If a tag 
field is defined and a variable of that record type is allocated, 
only fields in the <fixed part> and in the <variant> that 
includes the value of the tag field as a <case constant> are 
valid; any attempt to reference a field in another variant iS an 
error. When the value of the tag field for a particular variable 
is changed, the old variant becomes inactive and all fields in 
that variant become inaccessible. The new variant becomes active 
and all fields within the newly active variant are undefined, 
regardless of any prior state. 


If the <field identifier> is omitted (that is, there is no tag 
fietd) and a variable of that record type is allocated, the 
active variant is selected by assigning a valid value to a field 


Within that variant. At that point, all other variants 
theoretically become inactive, similar to the state described 
above for inactive tagged variants. However, in this 
implementation, the restrictions on accessing fields in inactive 
non—-tagged variants are not enforced. ALL fields within the 
<fixed part> and all fields within all variants may be 
referenced, but only one storage area is allocated. Thus, the 


Variants effectively “remap"“ the storage area. 


A crecard type> that includes the designation PACKED is stored in 
as economical an amount af space as practical, possibly at the 
expense of speed in accessing the components. 


Example: 
type str = packed array [1..20]) of char; 
ree = record 

name, firstname : str: 

age : QO..99; 

Case married : Boolean of 
true : ({Spousesname : str}; 
false : (); 

end; 


Type rec is a <record type identifier> that defines a 

<new record type>. The first component of rec iS name, which is 
of type str. The next component is firstname, also of type str. 
The component age is a subrange from O to 99, inclusive. 
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The word case introduces a set of two <variant>s, where married 


is a Boolean tag field that is the <variant selector>. If 
married is true, the next component is Sspousesname,TRUE, type 
str. If married is FALSE, there are no more components. 


<recard type> syntax. 

----+-- <mew record type>»-------~--- er rn rr terre 
<record type identifier» me 

«new record type> syntax: 

----+------H-- +-- RECORD -- <field List» -~ END ~-~--~-~-----~--------=~+--- 
+ PACKED + 


<field tist> syntax: 


wrote $m mbm pee rer mn ere 
| | | | 
+-- <fixed part» --+-------------------- + + 5 + 
! ! 
I + ; <variant part> --+ 
| ! 
+-- <variant part» --------------------- + 


<fixed part> syntax: 


l 

| | 
----4+----4+-- <field identifier> --+-- : --<field type» ~—~-+-~--—~~---+~--- 
<Fietd identifier> syntax: 
---- <cidentifier>» -------------------------~-------+----- === een 
<field type> definition: 
Any <type> that is not a <file type, a <textfile types, or a 
«structured type» containing a <file type> or a <textfile type» 


as a component. 


<variant part> syntax: 


+€----- , ------ + 
! I l 
---- CASE -- <variant selector> -- OF --+-- <variant> --+----~--------- 
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«variant selector> syntax: 

ee +-- <ordinal type identifier» ~----- 
| : ! 
+-- <field identifier> -- : --+ 


<ordinal type identifier> syntax: 


Tore <Boolean type>------------------ : sitet ien teeta lenient tae toetenton tential oat ontaslenteetetontentoation 
ce <Char type>-------------~-------- ' 
. <enumerated type identifier> a 
aoe <integer type> ------------------ : 
gts <subrange type identifier> ----- + 


<Variant> syntax: 


~---+-- <Case constant> --+-- : -— ( <field tist>» ) ------------------ 


<Case constant> syntax: 


----+-- <Boolean constant>------- +-------------- 
! ! 
+-- <char constant>---------- + 
! ! 
+~- <enumerated constant> —--+ 
| | 
+-- <integer constant» ------ + 
Set Types 
A <set type> iS a structured type for which the range of values 
is all possible subsets of the specified <hase type>. In 
mathematical terms, a <set type> defines the “powerset" of its 
<base type>. A variable of a <Set type> can contain any subset 


of the set, including the null set and the entire set. 


The range of ardinal numbers associated with the <base type> is 
0..255. 


The designation PACKED has no effect for set types. 


Examples: 
type sett = packed set of char; 
set2 = set of (club, diamond, heart, spade); 
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Type set1l is a <set-type-identifier>» defining a range of values 
consisting of all possible subsets of the set of type char. 


Type sete is a <set type identifier> defining a range of values 
consisting of all possible subsets of the set that includes the 
elements club, diamond, heart, and spade. The following are the 
possible values a variable declared of type sete could assume: 


diamond ] 

heart J 

[spade] 
[club,diamond] 

{[club, heart] 
[club,spade] 
{diamond,heart] 
[diamond,spadej 
[heart,spade] 
{[clLub,diamond,heart ] 
[club,diamond,spade] 
{club,heart,spade] 
{(diamond,heart,spade] 
[club,diamond,heart,spade] 


[ 
[club] 
[ 

[ 


«set type> syntax: 
! ! 
+-- <set type identifier> --+ 


«new set type> syntax: 


+ PACKED + 


<base type> syntax: 


Subrange Types 


A <subrange type> is a simple, ordinal type that defines a range 
of values that is (usually) smaller than the type from which it 
is derived, called its "host type.“ The value range includes all 
values of the host type between the first constant specified and 
the second constant specified, inclusive. The specified 
constants must be of the same type, and the second constant must 
be greater than or equal to the first constant. 
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The ordinal numbers associated with the values of a 
<subrange type> are the same as the ordinal numbers associated 
With those values in the host type. 


Examples: 
type tetters = “A’..°2’; 
color = (red, yellow, blue, green, tartan); 
primary = red. .blue; 
mixed = green. .tartan; 
index = 1..10; 


Type letters is a <Subrange type identifier> that selects the 
subrange of char values consisting of the characters from ‘A’ to 
“Z*, inclusive. 


Type color is an <e@numerated type identifier> whose values are 
red, yellow, blue, green. and tartan. 


Type primary is a <subrange type identifier> that selects the 
subrange of color values from red through blue (that is, the 
Values red, yellow, and hbliue). 


Type mixed is a <«Subrange type identifier> that selects the 
subrange of color values from green through tartan; the ardinal 
numbers associated with the values of type mixed are 3 (green) 
and 4 (tartan). 


Type index is a <subrange type identifier> that selects the 
integer values from 1 to 10, inclusive. 


<subrange type> syntax: 

----+-- (new Subrange type>»-------- th ee 
! | 
+-- <SuUbrage type identifer> -—-+ 


«new subrange type> syntax: 


sae Hea <Boolean canstant> .. <Boolean constant> -—------- : ee leateieteetent ete | 
ee <char constant> .. <char constant> ~~---~~------- * 
| 
+-- <eanumerated constant> .. <enumerated constant> a 
| ' 
+-- <integer constant> .. <integer constant> --—------ + 


Textfile Types 


A <textfile type>» is a structured type for which the components 
are characters grouped into Lines. Textfiles are similar to 
files af characters, but they have a different set af defined 
Operations. As with files, characters are accessed through 
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predefined procedures. 

Example: 

tyne streamfile = text; 

A variable declared to be of type streamfile will be a textfile. 


<textfile type>o syntax: 


+—--— <textfile type identifier> -——-+ 


VARIABLE DECLARATIONS 


The <variable declarations> define the variables that are to be 
used throughout the <block>. Each variable has an associated 
identifier, by which it is referenced, and an associated <type>, 
which defines the range of values and the operations applicable 
to the variable. 


The <type> specified can be a predefined type identifier, a type 
identifier defined in the <type definitions», or a new type 
specified in the <variable declarations». Variables that appear 
in the same «variable identifier list» are defined to be of the 
Same type. Please refer to the Type Definitions in this section 
for additional information on. types. 


When a block is entered at run time, all variables declared 
within that block are allocated with undefined values. 


Form 1152048 3-24 File DOCUMENT/PASCAL 


Burroughs 


B 1000 PASCAL LANGUAGE MANUAL 


Examples: 
type cotor = (red, yellow, blue, green, tartan); 
var , 2, max : real; 


x, Yy 

i, ] : integer; 

PB, g, cr : Boolean; 

k : QO..9; 

operator : (plus, minus, times); 

a array [0..63] of real; 

m, m1, m2 : array [1..10, 1..10] of real; 
f : file of char; 


c : color: 
hue1, hue2 : set of color; 
date : record 
month : 1..12; 
year : integer; 
end; 


days : array [1..12] of 28..31; 


Variables x, y, 2, and max are of type real, variables i and j 
are of type integer, and variables p, q, and r are of type 
Boolean. 


Variable K is of the <subrange type> O..9, for which the host 
type is integer. 


The variable operator is of an <enumerated type>; it can have 
the value plus, minus, or times. 


The variable a is a one-dimensional array of type reat that may 
he indexed by an integer from O to 63, inclusive. Variables om, 
m1, and me are two-dimensional arrays of type real. Each 
dimension may be indexed by an integer between 1 and 10, 
inclusive. 


The variable f is a file whose component type is char. (Each 
component is a single character.) 


The variable c is a variable of the <enumerated type identifier> 
color and may contain a value of red, yellow, blue, green, or 
tartan. Variables huet and hued are both of type “set of cotor " 
They may contain any subset of the <enumerated type identifier> 
color. 


The variable date is a <new record type>. The field month may 
contain an integer vatue from 1 to 12, inclusive. The field year 
may contain any value of type integer. The variable days is a 
one-dimensional array that may contain an integer value from 28 
to 31, inclusive; it may be indexed by an integer value between 
1 and 12, inclusive. 
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<variable declarations> syntax: 


Sete. GRR cece <variable identifier List» -- : -- <type> -- |; --+----- 


<variable identifier lList> syntax: 


~----+-- <variable identifier> --+----~-------------~-------------------~+ 
<variable identifier> syntax: 


---- <identifier> ---------~------~-~----------- +--+ == 3 = + - -  e- 


PROCEDURE AND FUNCTION DECLARATIONS 


Procedures and functions are subunits of programs and include 
their awn declarations and statements. The major difference 
hetween a procedure and a function is that a function returns a 
value associated with its function identifier; thus, a function 
is used to generate a value in an expression, whereas a procedure 
is used as a statement. 


«procedure and functions declarations> syntax: 


m—w--+—--+-- <procedure declaration> ---+--+-- ; ---~------------------- 
{ | | 
+-- <function declaration> ----+ 


The declarations used to define procedures and functions are 
described under the headings Procedure Declaration and Function 
Declaration in the pages that follow. 


A procedure or function can have an associated tist of 
parameters. This allows the the values and variables on which 
the procedure or function is to operate to be specified at run 
time. The parameter List occurring in the declaration is called 
the formal parameter list because the parameter names do not 
refer to actual variables; they stand in for variables 
throughout the procedure or function declaration. When the 
procedure or function is invoked, an actual parameter list is 
supplied, and the actual values and variables take the place of 
the formal parameters. 


The syntax and semantics of formal parameter Lists are provided 
under the heading Formal Parameter Lists, later in this section. 


Formal parameter lists are identical for both procedures and 
functions. functions. 
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The syntax and semantics of actual parameter lists and 
information on the matching of actual parameters with formal 
parameters when a procedure or function is invoked are provided 
under Actual Parameter Lists and Parameter Matching. 


Procedure Declaration 


The «procedure declaration> defines a procedure identifier and 
itS parameters. The procedure can then be invoked by a 
«procedure invocation statement>. 


<procedure declaration> syntax: 


---~- PROCEDURE <procedure identifier» -—~-+-----~-------------------- 


+-- <directive>» --+ 
«pracedure identifier> syntax: 
~w--— cidentifier>» ---~-----~-----~-----~---~----~---------------+---------- 
<directive> syntax: 
---- <forward> ------------------------------~-------------------+------ 


Before a procedure is invoked by a 

<procedure invocation statement>, the <procedure identifier> and 
the formal parameters of the procedure must be defined. Such a 
definition can be provided either in a forward declaration or in 
an actual declaration for the procedure. A forward declaration 
is a «procedure declaration> that includes the forward 
<directive>. When a procedure is forward-declared, an actual 
Procedure declaration must appear before the end of the list of 
<cprocedure and function declarations> that contains the forward 
declaration. When a forward declaration is used, the 

<formal parameter list>, if any, must appear in the forward 
dectaratiaon; it must not appear in the actual declaration. 


In some situations, a forward declaration is required. For 


example, if two procedures each invoke the other, at least one of 
the procedures must be declared forward. 
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Examples: 


program procedure decs; 
type arraytype = array [G..10] of integer, 


var x, y : arraytynpe; 
m, n : integer: 
procedure procti; 
begin 
display (’in proci’): 
end; 
procedure proce {i : integer; var j : integer); 
var k : integer; { local to proce } 
begin 
display (’in proce’); 
j} (= J + 7; { Actual parameter for j is changed. } 
end; 
pracedure proc4 (var a: arraytypej; 
forward: 
procedure procd; 
begin 
display (’in procs’); 
x[2] := 5; 
proc4 {x]j; 
end: 
procedure proc4; { The formal parameter List was specified in the 
forward declaration for proc4. } 
begin 
display ({’in proc4’): 
if afe] = 10 then 
procd: 
end; 
begin 
mi:i= §; 
n := 1000: 
proci; 
proce(m,n}; 
procs; 
end. 


Procedure procit has no parameters. 


Procedure proce has two parameters of type integer. The first 
parameter is a <value parameter> and the second is a 
<variable parameter>. 


Procedure proc4 has a <variable parameter> of type arraytyne. 
Because procedure proc4 contains a call on procedure procS (and 
praocS has a call on proc4), procedure proc4 was first dectared as 
forward. The <formal parameter List» for proc4 is declared only 
with the forward declaration. 
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Procedure procS has no parameters. ProcdS contains a cali on 
proc4. 


Function Declaration 
The <function declaration> defines a function identifier, its 
type, itS parameters, and its action. The function can then he 


invoked by a «function designator> in an expression. 


<function declaration> syntax: 


---- FUNCTION -- <function identifier» -~----------------------~------ 
Db ene eee + : <result typed | --+-----~----+---+- 
| ! | | 
+- <formal parameter List> +—+ +- <directive> -+ 


<function identifier> syntax: 


---- <identifier> -~------------------------------~------~----------- 
<result type> syntax: 


—-owt--— <Simple types ----4+------ 99 ee 
! | 


+-- <pointer type> --+ 
<«directive> syntax: 
~--- <faorward> -----------------------------------~-----------~-------- 


The <result type» specifies the type associated with the 
<function identifier>, which is the type of the value returned to 
the expression invoking the function. The <result type> must he 
a <simple type> or a <pointer type>. {Refer to Type Concepts. ) 
The function result is undefined until and unless the 

<function identifier> appears as the Left-hand side of an 
<assignment statement> in the function <block>. If a value is 
never assigned to the <function identifier>, an error occurs. 


Before a function iS invoked by a <function designator>, the 
<function identifier>, the formal parameters, and the 

<result type> of the function must be defined. This definition 
Can be provided either in a forward declaration or in an actual 
declaration for the function. A forward declaration is a 
<function dectaration> that includes the forward <directive>. 
When function is declared forward, an actual function declaration 
(that is, a <function declaration> must appear before the end of 
the list of <procedure and function declarations> that contains 
the forward declaration. When a forward declaration is used, the 
<formal parameter list> {if any) and <result type> must appear in 
the forward declaration and cannot appear in the actual 
declaration. 
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In some situations, a forward declaration is required. For 
example, if two functions each invake the other, at least one of 
the functions must be declared forward. 


Examples: 


program function decs; 
type subt = 1,..10; 
fetter = “A’..’2’; 
var 6: Boolean; 
c: tetter; 
inx : integer; 
offset : sub; 


function funct : Boolean; 
begin 
funct := true; 
end: 
function funce (i : integer) : subi; 
var k : integer; { lacal to funce2 } 
begin 
funce := i —- 5; 
end: 
function func4 (var a: letter) : Boolean; 
forward; 
function funcS : char; 
begin 
Ga. Ss SCR 
b := fune4d (Cc); 
funcS := c; 
end; 
function func4;: { The formal parameter List was specified in the 
forward declaration for func4. } 
begin 
if a < “D’ then 
a i= funcd; 
func4 := false; 
end; 
begin 
bh ss funct: 
offset := funce(10).; 
c i= funcd; 
end. 


Funct is a function of type Boolean with no parameters. 
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Function funce is of type sub1 and has one <value parameter> of 
type integer. 


The function fune4 is of type Boolean and has one 


<Variable parameter> of type letter. Because function func4 
contains a call on function funcS (and func5 contains a call aon 
func4), function func4 was first declared as forward. The 


«formal parameter lList> and <result type> for function func4 are 
declared only with the forward declaration. 


Function funcS is of type char and has no parameters. 


Formal Parameter Lists 

The <formal parameter lList> appearing in a 

«procedure declaration> or <function declaration> defines the 
externally supplied vatues and variables on which the procedure 
or function is to operate. The actual values and variables are 
provided in the <actual parameter lList> when the procedure or 
function is invoked. 


<formal parameter lList> syntax: 


m—--- [ --+--+--- <value parameter> ---- to—-te—-~- J) ---------------------- 
! { 
+-- <variable parameter> --+ 


<value parameter> syntax- 


—~---+-- <variable identifier> --+-- : -- <value parameter type» ~----- 
<value parameter type> definition: 

Any <type identifier> that is not a <file type>, a 

<textfile type>, or a <sStructured type> containing a <file type> 

Or a <textfile type> as a component. 


«variable parameter> syntax: 


---~ VAR oe «variable identifier> Es : <variable parameter type> 
<vVariable parameter type> syntax: 


---- <type identifier> --------------~----~---------------------------- 
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Parameters are declared by their appearance in a parameter list. 
They have associated identifiers, which are valid only within the 
procedure or function being declared, and associated types, which 
determine how the parameters can be used within the procedure or 
function and what type of actual parameters can be matched with 
the formal parameters. The two kinds of parameters, value and 
variable, also determine the usage of the parameter. 


A <value parameter> provides a value to the procedure or 
function, but an asSignment to the formal parameter will not 
change the value of the actual parameter. 


A <variable parameter> provides the procedure or function with a 
reference to a variable. An assignment to the formal parameter 
will change the value of the actual parameter. 


ACTUAL PARAMETER LISTS AND PARAMETER MATCHING 


Pam 


If a procedure or function is declared with a 

«formal parameter lList>, an <actual parameter lList> must he 
supplied whenever that procedure or function is invoked. Because 
the actual parameters will be substituted for the formal 
parameters in all contexts in which they appear in the <block»> of 
the procedure or function, it is important that the actual and 
formal parameters have similar characteristics. This similarity 
is ensured by a mechanism called parameter matching. 


<actual parameter lList> syntax: 


-~-- ( --4+--+-- <Bxpression> --+--+-- ) --------~-~---~-8 +--+ 
! 


| 
+--- <vVariable> —--+ 


Formal and actual parameters are matched according to their 
positions in their respective parameter Lists. The first formal 
parameter is matched with the first actual parameter, and so on. 
There must be the same number of parameters in the 

<actual parameter lList> as were declared in the 

<formal parameter list». 


A formal <value parameter> must be matched by an <expression> or 
a <variable> in the <actual parameter List». The <expression> or 
<variable> must be assignment compatible with the type of the. 
format parameter. 


A formal <variable parameter> must be matched by a <variable> in 
the <actual parameter list». The actual <variable> must be of 
the same type as the formal parameter. The actual parameter is 
accessed before the procedure or function is activated, and this 
access establishes a reference to the <variable> for the entire 
activation of the procedure or function. The existence of this 
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reference implies that, even if the procedure or function changes 
a variable (Such as an array index) that was used to specify the 
actual parameter, the actual parameter will not change. For 
example, if afi] were passed as an actual variable parameter and 
i had the value 5 at the time the procedure was invoked, the 
actual parameter would always be a{5], even if i were changed to 
7 within the procedure. 


A component of a variable of a PACKED structured type cannot be 
passed @S an actual variable parameter, nor can the tag field of 
the <variant part> of a record variable. iO0.parameter list 
congruity 


Two <formal parameter lList>s are congruent if att of the 
following conditions are true: 


1. The <formalt parameter lList>s contain the same number of 
parameters. 


2. Corresponding parameters are of the same kind (value and 
Variable). 

3. corresponding parameters are of the same type. \ 
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SECTION 4 

STATEMENTS 
Every <block> contains a <statement parts, which is simply a list 
of statements bracketed by the keywords BEGIN and END. 
Statements are the executable, or active, components of programs. 
Simple statements perform a single operation once. Structured 
statements contain statements as. subcomponents. Depending on the 
form of the structured statement, the subcomponent statements may 
be executed sequentially, repetitively, or conditionally. 
<statement part> syntax: 
---- BEGIN -- <statement list» -- END ---~-------~-------~-~------~-----~ - 


«Statement List> syntax: 


—----+-- <¢sStatement> --4+----------------------------~------—------~----- 


<«statement> syntax: 


i +-4+--------------- - - - - - ee poo 
{ I | | 
+-- <label>s -- : --+ oe <assignment statement» ---------~+-=~— ‘ 

a <case statement» ------~----~—--+~+--— + 

i 
foe <compound statement> ---~-----~—-+=-~-— + 

{ 
a <for statement> --~-------~---~~-~---- + 
toe euute-atetements-saoS44 ates 4 

I 
ae <if statement» ------------~--~----- + 
| l 
ag <procedure invocation statement> Het 
$s <repeat statement» ~-~--~-~--~—---- ees 

I 
= «while statement» -~-------—-------- : 
gan: With os POkaMenes: Hsesseeee anew aese + 


The <assignment statement>, the <goto statement», and the 
<procedure invocation statement> are simple statements. The 
<compound statement> and the <with statement» are sequential 
statements. The <for statements, the <repeat statement», and the 
«while statement» are repetitive statements. The <if statement» 
and the <case statement> are conditional statements. 


Form 1152048 4-1 File DOCUMENT/PASCAL 


Burroughs 


B 1000 PASCAL LANGUAGE MANUAL 


The null path through the <statement> syntax diagram represents 
the “empty statement." The empty statement can be used in 
situations where a null operation is required. For example, it 
might he desirable to associate an empty statement with a 
particular <case constant> in a <case statement». 
A statement may have an associated <label> that identifies its 
location for later reference in a <goto statement». Restrictions 
on the declaration and placement of labels are described under 
Label Dectarations in section 3. Restrictions on references to 
labels in <goto statement>s are described under GOTO Statements 
in this section. 

ASSIGNMENT STATEMENTS 
The <assignment statement> assigns the value of the <expressian> 
or function identifier to the specified <variable>. The value of 
the function identifier or the <expression> must be assignment 
compatible with the type of the <variable> that is being 
assigned. 
<assignment statement> syntax: 
---- <variable> -------------- [= --+-- <expression> ~-~-------- +----- 

j 


+-- <function identifier> —-+ 


Examples: 

xX := y + 2; 
The variable x is assigned the sum of y and 2. 

p := (1 «= 1) and (1 <= 100); 
The variable p is assigned the Boolean value true if i is between 
the values of 1 and 100, inclusive; otherwise, p is assigned the 
Boolean value false. 


huel := [blue, succ(c)]; 


The set variable “hue1" is assigned the set consisting af the 
Value “blue” and the successor to the value of the variable c. 


pi@.mother := true; 


The Boolean mother, which is a field identifier in a dynamically 
allocated variable pointed to by pl, is assigned the value true. 
var S : packed array [{1..3] of char; 
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begin 


§ ‘= ‘abe 
end: 


4. 


7 


This assignment assigns the value ‘abc’ to the string variable s. 


CASE STATEMENTS ; 
The <case statement» allows the selection of ane of a group of 
statements, depending on the value of the specified <case index». 
The <case index> is evaluated, and the <statement> associated 
with the <case constant» of that value is executed. 
If no <case constant> has the value of the <case index», the 
<Sstatement tist» following the reserved word OTHERWISE is 
executed: if OTHERWISE does not appear, a run-time error occurs. 


The values af the <casSe constant>s must be unique and must be af 
the same ordinal type as the <case index>. 


The QTHERWISE construct is a Burroughs extension to ANSI Pastal. 
Examples: 


Case operator of 


plus: X i= KX + Y; 

minus: X i= X¥ - y; 

times: Mo PSK Eyes 
end; 


The value of the enumerated variable operator determines the case 
constant whose statement will be executed. 


Case date.month of 


4,6,9,11: days [date.month] := 30; 

2: days [date.month] := 28; 

otherwise days [{date.month] := 31; 
end: 


If date .manth is a value other than 2, 4, 6, 9, or 11, the 
statement associated with “otherwise” will be executed. 


<case statement> syntax: 


+ {------ letestestentnteatententateten ‘ 
---- CASE <case index> OF =] <case list sane eee ears ----------- 
ice 
dm et nn eee : Slententenlentetenten END ---------------- 
<- GUeRWA Se 2c. cenehanane Ties ~=+ 
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<Case index> syntax: 
---- <ordinal expression> ---~---~---~-----~+------------ +--+ 2 


<case list element> syntax: 


m---+-- <CaS@ COonstant> --+-- : -- «statement» -------~-—-----~--------- 


COMPOUND STATEMENTS ~ 
The <compound statement> allows a <statement lList> to be treated 
as a single <statement>. A <compound statement> is frequently 
used as a <Statement> within a Structured statement (such as an 
<if statement> or <while statement>). 
<compound statement> syntax: 
—----~ BEGIN -- <Statement List» -- END ------------~---~----------—~-------- 
Example: 


if j >» k then 
begin 
a 
x: 
y : 
end; 


tone 
NM >< 


If the value of j iS greater than the value of k, 2 will be 
assigned the value of x, x will be assigned the value of y, and y 
Will be assigned the value of 2z. 

FOR STATEMENTS 
The <for statement» causes the <Statement> to be executed 
repeatedly, each repetition being performed with the 
<control variable> assigned to a different value within the 
specified range of values. The <statement> within the 
<for statement> is referred to as the "controlled statement." 
<for statement> syntax: 


---- FOR -- <control variable>o --— := -— <initial value> --+--- TO ---+ 


»--- <final value» -- DO -- <statement>» -~------------~----------------- 
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<control variable> definition: 


A <Boolean variable>, <char variable>, <enumerated variable>, or 
<integer variable> that is also an <entire variable>. 


<initial value> syntax: 


---- «ordinal expression» ------------~------------~-~-------~+-- ‘~--- 


<final value> syntax: 


---- <ordinal e@expreSSi0N> ---------- nnn er er een 


The range of values is defined by <initial value» and <final 
value>. If TO is specified, the <control variable> is 
incremented from <initial value> ta <final value>, inclusive. If 
DOWNTO is specified, the <control variable> is decremented from 
<cinitiat value> to <final values, inctusive. The <initial value» 
and the <final value> are evaluated only once; thus, if one or 
both are variables, subsequent changes to their values have no 
effect on the execution of the <for statement>. 


Once the <control variable> has heen assigned the <final value> 
and the controlled statement has been executed for the final 
time, the value of the <control variable> becomes undefined and 
program control is passed to the statement following the <for 
statement». If a <goto statement> within the controlled 
gtatement transfers control to a statement outside the controlled 
statement, the value of the <control variable> remains defined. 


The <control variable> must be a tocally declared variable of an 
ordinal type. The <initial value> and <final value> must be 
assignment compatible with the <controt variable>. The value af 
the <control variable> may he accessed at any time during the 
execution of the controlled statement, but its value cannot be 
changed or "threatened." A “threatening” statement is one of the 
following types of statements occurring in the controlled 
statement or in any procedure or function declared in the most 
local block containing the <for statement»: 


1. An assignment statement in which the <control variable» 
appears on the Left-hand side. 


2. A statement that invokes a procedure or function in which 
the <control variable> appears as an actual variable 
parameter in the parameter List. 

3. A statement in which either the read or the readln procedure 


is invoked with the <control variable> appearing in the 
parameter list. 
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4. Another «for sStatement> in which the <control variable> is 
also used as the <control variable> for that 
<for statement>. 


Examples: 
max := a[1]; 
for i := 2 to 63 do 
if afi] >» max then 
max := ali]; 
For each value of i between 2 and 63, inclusive, a[i] will be 
compared to max. If the value of afi] iS greater than max, max 


will be assigned the value of afi] 


For each value of i between 1 and 10, inclusive, j is assigned a 
vatue of 1 to i — 1, inclusive. When i is 1, j iS assigned 
values from 1 to O. Because there are no values between O and 1, 
the controlled statement of the innermost for statement is not 
executed when i i18 1. When i is 2, j is assigned values from 1 
to 1, inclusive, so m[2][{1] is assigned the value O.0. This 
process continues for all values of i up to, and including, 10. 


for c := blue downto red do 
q(c); 
For each value of c between blue and red, inclusive, the 
procedure q is called with c as a parameter. (c is assigned 
blue, pred({c), ..., until pred(c) is the value red. } 


GOTO STATEMENTS 


The <goto statement> transfers program control to the <sStatement»> 
associated with the specified <label>. 


<goto statement> syntax: 

~--- GOTO -- <label>» -----------~---------~-----------~----------~------- 
There are several restrictions on the use of the <goto statement» 

that depend on the location of the <label> it specifies. In 

general, the restrictions prohibit branching into a structured 
statement from outside that statement. Specifically, it is valid 


for a <goto statement> to reference a <label> only if at least 
one of the following conditions is true: 
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Ty The <statement> associated with the <label» is in the same 
<statement list> as the <goto statement> or it is in the 
Same <statement List> as any structured statement containing 
the <goto statement». 


2. The <statement> associated with the <labelo is a <«statement» 
within the <statement part> of any <block> containing the 
<goto statement>. That is, the <statement> associated with 


the <label> is a statement at the outermost level of any 
<block> containing the <goto statement> and is not contained 
within a structured statement. 


Example 1: 
program valid goto examples; 


label 10, 20, 9999; 
var counter : integer; 


procedure pi; 
label 100; 
var local loop : integer; 
begin - 
local toop:=1; 
100: ; 
if tocal loop > @ then 
goto 9999; 
tocal loop := Local toop + 1; 
gato 100; a 
end; 


hegin 
counter:=0; 
10: 
if counter < 10 then 
begin 
counter := counter + 1; 
goto 10; 
end; 
if counter < 20 then 
begin 
20; 
counter := counter + 1; 
if counter < 25 then 
begin 
display(’looping’); 
goto 20; 
end; 
pi; 
end; 
9999: 
display{ done’); 
end. 
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In example 1, the branches to labels 10, 20, and 100 are valid by 


rule 1. The branch to tabel 9999 is valid by rule e. 


Example 2: 


program invalid goto examples, 


label 2000, 9000; 
var inx : integer; 


procedure pl; 

tabel 100; 

begin 

100: 
goto 9000; {1} 
end; 


begin 

inx := 3; 

if inx = 3 then 
begin 
ink := 4; 
goto 2000; {2} 
end 

else 
begin 

2000: 
display (“illegal branch’); 
end: 


if inx = 4 then 
begin 
9000: 
display (“illegal branch’}; 
end 
else 
begin 
goto 100; {3} 
end; 


end. 


In example 2, the branch at {1} is invalid because the statement 
associated with Label 9000 is in a containing procedure but 


not at the outermost tevel of the block. 


The branch at {2} is invalid because the statement associated 
with tabelt 2000 is neither in the <statement list» that contains 
the <goto statement> nor in any Structured statement that 


contains the <goto statement>. 
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The branch at {3} is invalid because label 100 is nat in the 
scope of the <goto statement>. 


IF STATEMENTS 


The <if statement» allows the selection of one of two 
<statementos, depending upon the value of the <Boolean 
expression>. If the value of the <Boolean expression> is true, 
the <statement> following the reserved word THEN is executed. If 
the value of the <Boolean expression> is false, the <statement» 
following the reserved word ELSE is executed; if ELSE does not 
appear, program execution continues with the statement 
immediately following the <if statement». 


<if statement» syntax: 
<Boolean expression» THEN -- <statemant> 


»---- foe fone ee ee 
! | 


+-- ELSE -- <statement> --+ 


In nested <if statements, each ELSE is paired with the nearest 
preceding unpaired THEN. 


Examples: 


if x 
Pd 
else 
2 


If x is less than 1.5, 2 wilt be assigned the sum of »x and 
x iS greater than or equal to 1.5, 2 is assigned the value 1.5. 


if pl <> nil then 
p1 := pi@.father.: 


If the pointer p1 is referencing a variable, p1 is updated to the 
value of the pointer contained in the field named father in the 
dynamically allocated record pointed to by pi. 


QO then 
i = 0 then 
writeln(’ indefinite’ ) 
else 
writeln(’ infinite’) 
else 
writeln{i / jj; 
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The following table shows what would be written for various 
values of i and j: 


j} = Oand i= QO indefinite 
j = O and i <> O infinite 

} <> O and i = OQ ee 4 

j) <> OQ and i <> O i / j 


STRING RELATION 


A <string relation> performs a sequential comparison of the 
ordinal numbers of corresponding characters in the twa 

«string expression>s. The <string expression>s must be of the 
same length. 


«string relation> syntax: 
~--- <String expression> -- <rel op> -- <S8tring expression> —~-------- 


Two <string expression>s are equal if every character in both 
strings is identical. A <string expression> is less than another 
<string expression> if, in the first character position that 
differs between the two <«string expression>s, the first 

«string expression> contains a character of a lower ordinal 
number than the corresponding character in the second string. 


Example: 
var b : Boolean; 
sl, s2 : packed array [1..10] of char; 
begin 
581 := “abcdefghij’; 
s2 := “abcdefghi2’; 
b = si « s2; 
end; 


The string si is Compared, character by character, to string se. 
The variable b is assigned the value true because, at the first 
character position at which the strings differ (j and 2 at 
character 9), the ordinal number of j is tess than the ordinal 
number of 2. 


PROCEDURE INVOCATION STATEMENTS 


The <procedure invocation statement> activates the specified 
<declared procedure> or <predefined procedure>. When the 
procedure activated by the <procedure invocation statement» 
terminates, the program continues at the point immediately 
following the <procedure invocation statement». 
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<pracedure invocation statement> syntax: 


----+-- <declared procedure> ---~-+------------- wee 
! ! 


+-- <predefined procedure> —~—+ 
<declared procedure> syntax: 


---- «procedure identifier» --+---------~----—--~-----~------- + 
| I 


+-- <actual parameter list» 
The <procedure identifier>s and parameter Lists for 
<declared procedure>s are specified by the programmer in 


<procedure declaration>s. Procedure identifiers and parameter 
Lists for <predefined procedure>s are described in Section 6. 


If the «procedure identifier> was declared with a 
<formal parameter List>, any <procedure invocation statement» 
invoking that procedure must include an <actual parameter List». 
Please refer to the Actual Parameter Lists and Parameter Matching 
in section 3 for additional information. 
Examples: 

printheading: 


The declared procedure printheading, which has no parameters, is 
invoked. 


writeln{f, i, jj); 
The predefined procedure writeln is called to write the values of 


ioand j to the textfile f. 


hisect(fcet, -1.0, 4+1.0, x); 


The declared procedure bisect is called with the actual 
parameters fet, -1.0, +1.0, and x. 


REPEAT STATEMENTS 


The <repeat statement» causes the <statement list» to be 
repeatedly executed until the value of the specified 

<Boolean expression> is true. The <statement lList> is always 
executed at least once because the <Boolean expression> is 
evaluated after each execution of the <statement List». 
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«repeat statement> syntax: 


-~- REPEAT --<statement ltist»-- UNTIL --<Boolean expression>--! 
Example: 
repeat 
kK := i mod j; 
i:= jj 
j := k; 
until j = Q; 
The variable k i8 assigned the value of i mod j. The variable ij 
is assigned the value of j. The variable j iS aSSigned the value 
of k. If j) is not egual to O, the three assignment statements 
are executed again. When j is egual to O, the statement 


following the repeat statement iS executed. 


WHILE STATEMENTS 


The <while statement> causes the <statement> to be repeatedly 
executed until the value of the specified <Boolean expression> is 
false. The «Boolean expression> is evaluated before each 
execution of the <statement>, so the <statement> will not be 
executed if the <Boolean expression> is initially false. 


<whilte statement» ‘syntax: 
-—--- WHILE -- <Boolean expression» -- DO -— <Statement>» -—-------------- 
Example: 


while i > O do 
begin 
if odd{i) then 
Zp 2 oe 
i div 2; 
sqr(x); 


1 
xX : 
end: 


The compound statement in the WHILE statement is executed if i is 
greater than O. After each execution of the compound statement, 
i is compared to O. If i is greater than QO, the compound 
Statement 1S executed again. 


WITH STATEMENTS 
The <with statement> establishes a scope within which all 
<field identifier>s in the <statement> are assumed to be prefixed 


by the specified <record variable>. Thus, when a 
<field identifier> is used, the field referenced is actually 
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«record variable>.<field-identifier>. The <with statement» 
context permits a shorthand notation that is useful when many 
references are being made to fields within a particular record. 


«with statement» syntax: 
~--- WITH -- <record variable» -- DO -- <statement> 


When multiple <record variable>os are specified, the effect is as 
if the <record variable>s were specified in nested 

<with statementos. The leftmost <record variable> is assigned 
the most glohal scope and the rightmost the most local scope. 
Thus, when two or more records have identically named fields and 
that field name appears as a <field identifier> in the 
<statement>, the field is assumed to be the one in the 

<crecord variable> associated with the most local <with statement» 
scope. 


Similarly, when a <field identifier> conflicts with an 
<identifier> whose scone is global to the <with statement>, the 
<with statement> scope overrides and the field of the record is 
referenced. 


Examples: 


Var date : record 
month : 1..12; 
year : 1950. .2050; 


end; 
begin 
with date doa 
if month = 12 then 
begin 
month := 1; 
year := year + 1; 
end 
else 
month := month + 1; 
end: 


If date.month equals the value 12, date.month is assigned the 


value 1 and date.year is incremented by 1. If date.month is not 
equal tao 12, date.month is incremented by 1. 
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SECTION 5 
EXPRESSIONS 


An <expression> generates a value of a particular type hy 
performing specified operations on specified operands. The 
operands and operations vary according to type. For example, a 
<Boolean expreéssion> generates a Boolean value from the 
application of <Boolean operator>s to <Boolean primary>s 
({aperands). 


<expression> syntax: 


----+-- <array variable» -------- : eee 

! 

—_ <Boglean expressian> Zany 

| ! 

+-- <Char expressiagn> ------- + 

| { 

+s <enumerated expression> = 

ae <integer expressian> aa 

\ 

fxd <pointer expressian> mare 

I ! 

os «real expression> ------- : 

| 

po <record expression> —---- * 

I 

i <set expression> ~------- + 
{ 

— <string expression> -—---- i 


For mast <array type>s and all <record type>s, there are no 


Gperations or canstants defined; an <expression> of such a type 
is simply a variable of that type. Arrays af <¢string type> can 
be assigned <string expression>s, which are defined in this 
section. Files and textfiles do not directly generate values, 


and there are no expressions defined for these types. 

ARITHMETIC EXPRESSIONS 

In some contexts, it is useful to consider <integer expression>s 
and <real expression>s as <arithmetic expressianos. For example, 
many arithmetic functions accept <arithmetic expressiaon>s as 
parameters. 


<arithmetic expression> syntax: 


—---+-- <integer expressian> —--+----------- 9-9 nnn ee e+ 
! ! 
+-- <real expressian> —---- + 
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ORDINAL EXPRESSIONS 


Boolean, char, enumerated, and integer expressions are grouped as 
<ordinal expression>s, which are expressions that generate 
ardinal values. <Ordinal expressionss are frequently used as 
<Case constants, array indices, and set components. 


<ordinal expression> syntax: 


-~---+-- <Boolean expression> --—--- S slestoesioestandhesieniententeatententententeshentonteatentantententedeiedententemadasentestnbedieaieen 
| { 
at <char expression> -------- + 
| | 
eax <anumerated expression» a 
| 
— <integer expression> ----- 4 


PRECEDENCE OF OPERATORS 


An aperator generates a value by performing a defined operation 
on either one or two data items. The data items on which 
agperators aqperate are called operands. 


A unary operator applies to only one operand. For example, the 
Boolean NOT operator produces a value that is the logical 
complement of the Boolean operand to which it is applied. 


A binary operator applies to two operands, generating a single 
Value by combining or comparing the values of the two items in 
some way. For example, the arithmetic subtract operator [(-J 
produces a value by subtracting the value of the second operand 
from the value of the first operand. 


An expression is a combination of operands and operators that 
generates a value by applying the operators to the operands 
arcording to defined rules. The simplest expression is just an 
operand, with no operators or other operands specified. A more 
complicated expression may include many operands and operators. 


Theoretically, when there are multiple operators in an 
expression, there could be multiple interpretations of the 
expression. For example, A+ B * C could be interpreted in two 
ways: 

(1) First add A and B, then multiply the sum by C, or 


(2) first multiply B and C, then add the product to A. 
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If A is 3, B is 5, and C is 7, then the value of the expression 
is 56 if computed by method 1 and 38 if computed by method 2. 


Rules that define the “precedence of aperators" describe the 
order in which operations are performed within an expression. 
Higher precedence operators are applied before lower precedence 
operators. The precedence of operators is defined in the 
following table: 


[highest] a) NOT 
bob) *, /, DIV, MOD, AND, CANDO 
c} +, -, OR, COR 

[towest] dj) =, <>, <=, >=, «, «, IN 


The highest precedence operator is the Boolean NOT operator. 


The multiplication operators have the second highest precedence. 
These operators are integer and real multiply and set 
intersection {*), real division (/), integer division {DIV}, 
integer remainder division (MOD), Boolean AND, and Boolean 
conditional AND {CAND}. 


The addition operators, the next group in precedence, are integer 
or real unary plus (+), integer or real addition (+), set union 
(+), integer or real unary minus (-), integer or real subtraction 
{~}, set difference (-), Boolean OR, and Boolean conditional OR 
(COR). 


The lowest precedence operators are the relational operators. 
These operators, which apply to several data types, are described 
under Relational Expressions in this section. 


Other languages, such as FORTRAN and ALGOL, define a higher 
precedence for the relational operators. For example, if A, B, 
C, and D are integer operands, the expressian shown below is a 
valid Boolean expression in FORTRAN and ALGOL (ignoring the minor 
differences in syntax), but it is not a valid expression in 
Pascal: 


A = B AND C = OD 
(A = Bj) AND (C = OD) {FORTRAN/ALGOL interpretation} 
A = (B AND Cj) = O {Pascal interpretation--INVALID} 


When an expression contains two or more operators of equal 
precedence, the operators are applied from left to right. For 
example, in the expression X * Y / Z, first X and Y are 
multiplied, then the product is divided by Z. 


The defined precedence of operators can be overridden by 
enclosing subcomponents of the expression in parentheses. For 
example, in the expression A +B * C mentioned earlier, the 
precedence rules specify that the multiply operator {*) is to be 
applied before the addition operator (+). Thus, the result of 
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evaluating this expression is 38 if A is 3, B is 5, and C is 7. 
The other interpretation can be imposed by enclosing the first 
part of the expression in parentheses: 


5 oe {Add A and 8B, then multiply by C yields 56} 
B #6) {Identical to default interpretation yields 38} 


FUNCTION DESIGNATORS 


The appearance of a <function designator> in an expression 
activates the specified <declared function> or 

«predefined function>. When the function activated by the 
<function designator> terminates, a value is returned and 
evaluation of the expression continues. 


<function designator> syntax: 


----+-- <declared function> ----+-----------------------+-------------- 
! | 


+-- <predefined function> --+ 

<declared function> syntax: 

---- ¢function identifier» —~-4+---------~-------------------- +---------- 
+—-- <actual parameter List» sae 


The <function identifier>s and <formal parameter list»os for 
<declared function>s are specified by the programmer in 
<function declarationds. Function identifiers and parameter 
lists for <predefined function>s are described in section 6, 
Predefined Procedures and Functions. 


If the <function identifier> was declared with a 

<formal parameter List>, any <function designator> invoking that 
function must include an <actual parameter ltist>». Please refer 
to Actual Parameter Lists and Parameter Matching in section 3 for 
additional information. 
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Examples: 


program function example; 


var i : integer; 
b : Boolean; 
function f1 : integer; 
begin 
fl := 10; 
end; 
function fe ({j : integer) : Boolean; 
begin 
fe ge 4. 220; 
end; 
begin 
VS 
b := fe (i); 
end 


The variable i is assigned the value of the function designator 
f1. The variable b is assigned the value of the function 
designator fe, where i i8 passed as the actual parameter. 


EXPRESSIONS BY TYPE 


Expression types, in alphabetical sequence, are described in the 
paragraphs that follow. 


Bootean and Relational Expressions 
A <Boolean expression> ‘generates a value of the «Boolean type>. 


A relational expression generates a Boolean value by comparing 
two operatands of the same type or of similar types. 


Boolean Expressions 
Following are syntax diagrams for Boolean expressions. 
<Boolean expression> syntax: 
+€------- «Boolean operator> ------ + 


----t+--t----- +-- <Boolean primary> --+---------------------------- 
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<Boolean operator> syntax: 


<Boolean primary> syntax: 


-~---+-- ( <Boolean expression> ) --+-------------------~-~-----~-----+ | 

{ 

— <Boolean constant>--------- + 
| | 
2 <Booltean variahble>»--------- ¥ 
{ I 
— <function designator>------ + 
{ | 
‘oe <relational expression» ee 


The <Boolean operator>s AND and OR perform the togical AND and 
logical OR operations, respectively. CAND and COR are 
canditional operators that perform the same operations as AND and 
OR, with the following exception: the left-hand 

<Booglean primary> is always evaluated first and, if the value of 
the <Boolean expression> can be determined from the value of the 
left-hand <Boolean primary> atone, the right-hand 

<Boolean primary> is not evaluated. 


<Boolean constant> is defined in Constant Definitions in section 
3, <Booglean variable> is defined in section 7, Variabtes, and 
<function designator> and <relational operator> are defined in 
this section. 


For a <function designator> to return a value of <Boolean type>, 
jt must be dectared with <Boolean type> as its <result types. 


The CAND and COR operators are Burroughs extensions to ANSI 
Pascal. 
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Examples: 


var b1, be, b3 : Bootean; 


begin 

{The following two expressions are equivalent. } 
b1 := bi or be and b3; 

b1 := 61 or {be and b3}j; 


end; 


program cand example (output); 


var i : integer; 
a: array {1..10] of integer; 
function f1 {inx : integer) : Boolean; 
begin 
fl := inx «= 10; 
end; 
begin 
oe: Te 
while f1{i) cand (a[i] = 0) do {See note below.} 
1 := i + 1; 
end. 


NOTE 


The operator CAND is used in this 

<Boolean expressiaon> to prevent the 
evaluation of afi] when i has a value that is 
outside the declared bounds of the array. 


Relational Expressions 


A <relational expression> generates a Boolean value by comparing 
two operands of the same, or similar, types. For relations using 
the <rel opos {relational operators), the symbols have the 
following meanings: 


Symbol Meaning 
= Equals 
<> Not equals 
< ‘ Less than 
> Greater than 
<= Less than or equal to 
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<relational expression> syntax: 


ms a <arithmetic relat ion>--+-------~--------~~-~---------~----------- 
I 
oe <aordinal relation» eee 
{ 
ae <set relation» 
qe «string relation» 


<relt op> syntax: 


<arithmetic relation> syntax: 


—--- <arithmetic expression> -- <rel op> -— <arithmetic expression 
An <arithmetic relation> performs an algebraic comparison of the 
values of the specified <arithmetic expressionods. 


Example: 


var b : Boolean: 
7 3: integer; 
ro: real; 

begin 

i: 45; 

ro: 9.Oee2; 

bo : 1) Sse) Sr ors 

end, 


The value of the variable i is multiplied by 2@ and that result is 


compared to the value of r. If i*2 is greater than or equal to 
r, the variable bh is assigned the value true; otherwise, b is 


assigned the value false. 
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<ordinal relation> syntax: 


----4+----- <Boolean expression> <ret op> <Boolean expression> —---- +-- 
| I 
+ clnaieieaiatentestentan char expression> <rel op> <char expression> —-~----- + 
| I 
= <enumerated expression> <rel op> <enumerated expressian> 7 
: —---- <integer expression> <rel op> <integer expression> -—---- + 


An <ordinal relation> compares the ordinal numbers of the two 
specified ordinal expressions. The expressions being compared 
must be of compatible types. 


Examples: 
var c : char; 
color : (red, yellow, blue, green, tartan); 
i: integer: 
b : Boolean; 
begin 
js6c=ni; 
color := tartan; 
Ge Les 
if i > 5 then 
color := blue; 
b := color < green; 
be ee Pi ee AL 
end; 
In the above, i >» 5, color < green, and c = ‘Z’ are iltustrations 


of <ordina relation>s. 
<pointer relation> syntax: 


—----+-- <pointer expression> --+ = +-- <pointer expressian> —~---~----+ 
| | 


+ <> + 


A <pointer relation> compares two <pointer expression>s for 
equality or inequality. The <pointer expression>s are equal if 
they refer to the same dynamic variable or are both NIL. When 
<pointer expression>s are compared, they must he of the same 


type. 
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Example: 


program pointer relation; 


type ptr = @rec. 
rec = record 

name : packed array [0..20] of char; 
age : O..100; 
end; 

var myptr, yourptr : ptr, 

begin 

new(myptr)-;: 

yourptr := nil; 


if (myptr = yourptr) or ({yourptr <> nil) then 
display (’Errar’); 
end. 


This example tests two painters for equality and then tests a 
pointer for inequality to NIL. 


«set relation> syntax: 


---- +-- <set expressian> --+-- = ---+-- <set expression> —---+ 
| ! | | 
I +-- <> --+ I 
| | | ! 
! +-- (= --+ | 
! | 
+-- <ordinalt expression> -- IN -- ¢<set expressian> ------ + 
There are two kinds of <set relation>s. The first compares two 
«set expressiaonos far equality (=), inequality (<>), subset 
relationship (<=), or superset relationship {>=). The second 


determines whether or not the value of the specified <ordinal 
expressiaon> is a member of (that is, is IN) the set specified by 
the <set expression>. When <set expression>s are compared, they 
must be of compatible types. 


Examples: 


var 61, be : Boolean; 


GC : set af char: 
begin 
Cee ae 2 de 
b1 := [°b’ ,’f°,°A’] <= Cc; 
be := “ce” inc; 
end; 


The Boolean variable b1 is assigned the value true if the set 
containing “b’, ‘f’, and ’A’ is a subset of the set ¢c; 

otherwise, b1 is assigned the value false. The Boolean variable 
b2 is assigned the value true if the character “c’ i8 a member of 
the set c; otherwise, be is assigned a value of false. 
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CHAR Expressions 

A <char expression> generates a value of the <char type>. 

<char constant> is defined in the Constant Definitions section, 
<char variable> in the Variables introduction, and 

<function designator> later in that introduction. 

«char expression> syntax: 


—---+-- «Char constant»--------- $o- oo - - -- - - --  - - 


+-- <Char variable» --—~------ + 
+-- <function designator> --+ 
For a <function designator> to return a value of <char type>, it 


must be declared with the <char type>, or a <Subrange type> whose 
host type is the <char type>, as itsS <result type>d. 


Examples: 
const ch = “c’; 
var char1, char2 : char; 
Function char function : char; 
begin ~ 
char function := °?°; 
end; 
begin 
chari := ch; 
chart = char function; 
chare := chart; 
end; 
The <char variable> chari is assigned the value of the 
<char constant> ch (the character “c’}. Chart is then assigned 
the value of the <function designator> char function (the 
character “?7}. The <char variable> chare is assigned the value 


of chart (the character °“?’). 


Enumerated Expressions 


An <enumerated expression> generates a value of an 
<enumerated type>. 


<enumerated expression> syntax: 


—---+-- <enumerated constant» --+-------~------------------------------ 
| ! 
+-- «enumerated variable> --+ 
| ! 
+-- <function designator> —-+ 
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The <enumerated constant» is defined under Enumerated Types in 
section 3, <enumerated variable> under Variables, section 7, and 
<function designator> in this section. 


For a <function designator> to return a value of an 

<enumerated type>, it must be declared with that 

<anumerated type>, or a <subrange type> whose host type is that 
<enumerated type>, as its <result type». 


Examples: 


type colortype = (red, yellow, blue, green, tartan); 

Var color, 
hue : colortype; 

function colorwheel : colortype; 
begin 
colorwheel := succ(color); 
end; 

begin 

color := yellow; 

hue := colorwheel; 

color := hue; 

end; 


The <enumerated variable> color is assigned the 

<enumerated constant» yellow. The <enumerated variable> hua is 
assigned the value of the <function designator> colorwheel [in 
this case, the <enumerated constant> blue). Color is then 
assigned the value of hue (the <enumerated constant» blue). 


Integer Expressions 


An <integer expression> generates a value of the <integer type>. 
If the expression generates a value (or an intermediate result) 
greater than maxint or less than -maxint, an error occurs. 


The <integer operator>s are the familiar arithmetic operators for 
addition (+), subtraction (-), multiplication (*), integer 
division (DIV), and integer remainder division (MOD). 


<integer expression> syntax: 
+<-- <integer operator» 


! 
<integer primary» 
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<integer operator> syntax: 


----+-- + --+-------------- - - - - 
! ! 
+-- - --+ 
| ! 
+-- * --+ 
! { 
+-~ DIV --+ 


<integer primary> syntax: 


Bata a ( <integer expression> ) --------- haa as lantantantentententententententantententententententon 
a MII sere tt ar eee t 
= <unsigned integer>----—------------ t 
ak <integer constant identifier» Sone 
oe <integer variable» ~—------------- ‘ 
es <function designator> —----------- + 


The <insigned integer> is defined in section 8, Basic Components, 
<integer constant identifier> under Constant Definitions in 
section 3, <integer variable> in section 7, and 

<function designator> in this section. 


For a <function designator> to return a value of <integer type>, 
it must be declared with the <integer type>, or a <«<SUbrange type> 
whose host type is the <integer type>, as its <result type>. 


Examples: 
var i, j : integer; 
begin 
j i= 79; 
1 := maxint -— (j mod 48); 
end; 
Pointer Expressions 


A <pointer expression> generates a value of a <pointer type>. 
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<nointer expression> syntax: 


+ 
! 
+-- <pointer variable» + 
| | 
+-- <function designator> —-+ 


The constant NIL denotes a null reference {a pointer that is not 
currently referencing a variable). The’ <pointer variable>s is 
defined in section 7 and <function designator> is defined in this 
section. 


For a <function designator> to return a value of a 
<pointer type>, it must be declared with that <pointer types as 
its <result type>. 


Examples: 


program pointer exon; 
type ptr = @rec; 
ree = record 
name : packed array [1..20] of char; 
age : 0..100; 
end; 
Var myptr, yourptr : ptr; 
function allocate : ptr; 
var tempptr : ptr: 
begin 
new(temppetr); 
allocate := tempptr; 
end: 


hegin 

new(myptr); 
yourptr := myptr; 
myptr := nil; 
myptr := allocate; 
end. 


These assignment statements illustrate the three kinds of 
<pointer expressionos. 


Real Expressions 


A <real expression> generates a value of the <real type>. At 
teast one operand in the expression must be of type real for the 
expression to be of type real. If the expression generates a 
value outside the defined range for real values, an error occurs. 
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<real expression> syntax: 


+<---- carithmetic operator> -—-+ 
| 
----+----- +--+--4+-- <real primary> —---- +---+------------------------- 
i ! ! | 
+- + + +-- <integer primary> --+ 


re rr rr rr rn rer rrr re cccan 
y | 
+-- - --+ 
| ! 
pase OF ee 


pc TV esy. 
| 
+-- MOD --+ 


<real primary> syntax: 


m-o---¢-- ( <arithmetic expressiono-- J) --+t--- eee ne enn eee ene ne ee 
\ { 
+-- <unsigned real> ----------------- + 
! I 
— <real constant iddentifier> ----- ie 
\ | 
gas <real variable> ----------------- + 
I | 
+-- <function designator> ---------- + 


The <arithmetic operator>s are the familiar arithmetic operators 
for addition (+), subtraction (-), multiplication (*#), division 
(/), integer division {DIV), and integer remainder division 
(MOD). The DIV and MOD operators can be applied only tao 
<integer primary>s. 


<unsigned real> is defined in section 8, Basic Components, 
<real constant identifier> under Constant Definitions in section 


38, <real variable> in section 7, and <function designator> in 
this section. 


For a <function designator> to return a value of the <real type>, 
it must be declared with the <real type> as its <result type>. 
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Examples: 


const pi = 3.14159; 
varoa,r real; 
begin 

room 4; 

a := pi * sqr(r), 
end; 


Set Expressions 


A <set expression> generates a value of a <set type>. The 
<set aqperator>s perform the set operations of union [(+), 
difference (-), and intersection (*)}. 
«set expression> syntax: 
+<-- ¢Set operator> —--+ 
! | 
—---+--- <Set primary> ~--+-------------—--~----------—------- +444 
«set operator> syntax: 
—---4+-- + — f+ ee ee a a a a a re we ee ee 
I I 
+-- -— ~-+ 
! | 
+-- FF + 
eset primary> syntax: 
—----+-- ( <Set expression> }) --4+--------~-----------~----~+---------++-- 
| ! 
+--— ¢set variable» -------- + 
| | 
+-- ¢set constructor> ----- + 
<set constructor> syntax: 
ae-- [ --+---------------------------- te- J ---------~+--------- + 
{ | 
[  $€-------- | + - + 
| | | 
+--+-- <member designator> -—-+ 
«member designator> syntax: 
---- <ordinal expression> --~+------~----~-~--~----------~+------- +--- a 
| { 
+=-— -- <ordinal expression> --+ 
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The operators may be applied to declared <set variable>s or to 
sets that are defined within the expression by use of the 

<set constructor> syntax. The <set primary>s within a 

<set expression> must be of compatible types. 


A «set constructor> defines a value of an implied <Set type». 
The members af the set are specified by the list of 

«member designator>s, which must all be of the same type or of 
<subrange type>s of the same host type. <member designators 
cansisting of a single <ordinal expression> denote that 
<ordinal expression> aS a member of the set. If the 

<ordinal expression> .. <ordinal expression> syntax is used, the 
members denoted are those values from the first 

<ardinal expression> through the second <ordinal expressiaon>, 
inclusive. If the second <ordinal expression> is less than the 
first <ordinal expression>, the set is empty. 


The <base type> of the <set type> implied by the 

<set constructor> is the type (or host type) of the 

<member designator>s. An empty <set constructor>, that is, [], 
has no specific type and may be used in any <set expression>. 


The <set variable> is defined in section 7. 


Examples: 
type color = (red, yellow, blue, green, tartan}; 
var set1, sete : set af colar; 
begin 
seti := [red] + [blue]; 
sete := seti * [yellow, blue, green]; 
sett := seti —- sete: 
end: 


Set1 is assigned the union of the set consisting of the element 
red and the set consisting of the element blue. Set2 is assigned 
the set whose member is the value blue (the intersection of the 
set seti and the set containing the elements yellow, blue, and 
green). Seti is assigned the set difference of seti and sete or 
the set whose member is the value red. 


String Expressions 
A <string expression> generates a value of a <string type>. 


<string expression> syntax: 


----+-- <char expressian> --+—------------------------------ +--+ 


+t-- (String constant> —-+ 
i | 


+-- <String variable> --+ 
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The <string constant» is defined under Constant Definitions in 
section 3, and <«string variable> is defined in section 7. 


Examples: 
const stri = ‘abcde’; 
var stre, str3 : packed array [1..5] of char; 
begin 
stre <= Str; 
str3 := stre; 
stre := °12345°’: 
Enc; 


The string variable stre is assigned the value of the string 
constant str1. The string variable str3 is assigned the value of 
the string variable strée. The string variable stre is assigned 
the character string °12345’. 
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SECTION 6 
PREDEFINED PROCEDURES AND FUNCTIONS 


Following this introduction, this section has two major parts: 
INPUT/OUTPUT AND FILE-HANDLING CONCEPTS and PROCEDURE AND 
FUNCTION DESCRIPTIONS. 


The first part presents input/output (1/0) concepts pertaining ta 
Pascal. Same basic terminology is covered and information is 
Presented on files {standard files and textfiles) and related I/O 
operations, and file attributes. Many of the Burroughs 
extensions to ANSI Pascal pertain to I/O to enable Pascal 
programs to access the system—-defined I/O subsystem. Programmers 
wha are interested in writing portable programs are advised toa 
become familiar with this material. 


The second part is a glossary of all the procedures and 
functions, grouped according to program application and, within 
that grouping, in atphabetic order. 


Many Pascal features, including 1/0 facilities and dynamic 
Variables, are made available through predefined procedures and 
functions. Although procedures and functions are syntactically 
different constructs, that difference is not emphasized in this 
section. 


<predefined procedure> syntax: 


----+-- <file handling procedure>-------- +------------------------ 
! | 
+-- <dynamic allocation procedure> -—~—+ 
! ! 
+-- <general procedure>-------------- + 


<predefined function> syntax: 


al aie <file handling function» -------- ‘ -~------ 
a <type transfer function> -------- 
a <arithmetic function» ----------- ‘ 
= «general function» -------------- + 


INPUT/OUTPUT AND FILE-HANDLING CONCEPTS 


The file handling procedures and functions are the basic 
mechanisms for performing input and output operations in Pascal. 
Some file handling procedures and functions operate on files, 
some an textfiles, and some on both. 
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Each procedure and function is defined in the second part of this 
section, under the heading File Handting Procedures and 
Functions. The general syntax is presented here. 
<file handling procedure> syntax: 

<close procedure» 

<get procedure> 

<page procedure> 


<put procedure> 


<read procedure» 


<read textfile procedures ~——+ 


<readin procedure> 
<reset procedure» 
<rewrite procedure> 
«seek procedure» 
<write procedure> 
«write textfile procedure» 
<writeln procedure» 
<file handling function> syntax: 
<eof ee a moo nn ne ee 
<eoln function» a 
Terminology 
The following paragraphs describe some of the basic terms used in 
defining the kinds of files and input/output operations available 
in Pascal. In same cases, more detailed information appears in 


the Standard Files, Textfiles, and Use of File Attributes 
discussions in this section. 
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Standard Files and Textfiles 


In Pascal, there are two types of files: standard files (files 
of any <component type>), and textfiles (special files of 
characters). A standard file is declared with a <file type>, and 
a textfile is declared with a <textfile type>. Note that a 
Variable declared as “file of char” is a standard file, nat a 
textfile. 


Standard files are used to transfer data in machine-readable form 
between a program and a physical file. This form of 1/0 is 
generally faster and more storage-efficient than textfile I/O, 
but it is not as convenient for use with terminals, line 
printers, and other character-oriented devices. Textfiles 
provide translation between the internal representation of data 
and an external character format. Thus, textfiles are generally 
better than standard files for representing data in 
human-readable form. 


The operations defined for these two types of files are quite 
different from each other and are treated separately throughout 
this section. 


Inspection Mode and Generation Mode 


In ANSI Pascal, there are two modes of file operation: 

inspection mode, in which the file is being read and not written, 
and generation mode, in which the file is being written and not 
read. In Burroughs Pascal, a third mode, inspection/generatiaon, 
is provided for standard files and textfiles, atlowing the files 
tao be both read and written. The B 1900 implementation uses the 
inspection/generation mode only. 


Buffer Variables 


Associated with each file variable is an implicitly dectared 
buffer variable. The type of the buffer variable is the same as 
the <component type> of the file {char for textfiles}. The 
buffer variable may be used in expressions, assignment 
statements, and other constructs in just the same fashion as any 
other variabte of the same type. For several predefined 
Operations, data is transferred from the buffer variable to the 
file, or vice versa. If the identifier associated with the file 
is f, the buffer variable is indicated by f@. 


File Attributes 
File attributes are system-defined variables that describe 
aspects of a file or textfile from the point of view of the I/O 


subsystem. The compiler assigns appropriate values for the 
various file attributes when files are declared. In many cases, 
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na further specifications need be made by the programmer. Syntax 
is provided in the List of <program parameters> and in the 
<setattribute procedure> to allow programmatic assignment of file 
attribute values. 


Logical and Physical Files 


As viewed by a program, a file is a logical entity that is read 
or written somewhat independently of the characteristics of the 
device involved. In terms of the device used to create it or the 
medium upon which it is stored, however, a file is referred to as 
a physical file. Before data can be transferred between a Pascal 
program and a physical file, a physical file must be assigned to 
the relevant file or textfile variable. This assignment is made 
when the file is opened, through a call on either the reset 
procedure or the rewrite procedure. 


The desired physical file may be a new file or an existing file. 
If a file iS opened using the <reset procetdure> an existing file 
is assumed. If the <rewrite procedure> is used, a new file is 
created. 


The decision as to which physical file wilt be assigned is 
controlled by the vatues of several file attributes for the file 
and by the particular operation used to open the file. 


The default value of the KIND attribute in Pascal is DISK. The 
default value of the TITLE attribute is, as in ALGOL or COBQL, 
the first 10 characters (translated to upper case) of the 
«variable identifier> of the file or textfile. 


Permanent and Temporary Files 


Files may be further classified as permanent files or temporary 
files. <A file created by a Pascal program is a temporary file 
unless aotherwise specified. A temporary file exists anly while 
the program that created it is running. It is discarded as the 
result of a close operation that does not specify thea save or 
crunch option. A temporary file cannot be accessed by any other 
program. 


A permanent file, on the other hand, may exist beyond the 
lifetime of the program and can be accessed by a logical file 
other than the one used to create it. A permanent file can be 
created by a Pascal program in one of two ways: 


(1) If the file name appears in the <program heading>, the file 
will become a permanent file when it is closed. 
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(2) The file can be closed by a close operation that specifies 
either save or crunch. 


In both cases, an existing permanent file replaced by a saved 
file with the same name, but it is not replaced until the close 
Operation is executed. 


A permanent file can be explicitly removed by executing a close 
Operation with the purge option. 


Examples: 


program p(fj; 


type employee record = record 
= name : packed array [{1..25] of char; 
department : 1..9000; 
end; 
var f : file of employee record; 
g : file of employee record; 

begin 
{ The following statement creates a new permanent file. The file 

iS permanent because the file f appears in the program parameter 

list. } 


rewrite(fj; 

{ The following statement opens a new file. At this point, the 
file is temporary. } 

rewrite(g); 


{ The following statement causes file g to become a permanent 


file. } 
close(g,save); 
end. 


Standard Files 


A standard file is a variable of a <file type>. It consists of a 
(theoretically) unbounded sequence of components of its 
<component type. In practice, of course, a file is limited by 


the size of the device with which it is associated and other 
system resource Limitations. 


No special formatting of data is performed for standard files. 


Operations on standard files are described next. 
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Reset Operation 


The reset operation assumes that a file already exists. The file 
may be open or closed. If the file is open, it is repositioned 
at the beginning of the file. If the file is closed, it is 
opened. The first component of the file is assigned to the 
huffer variable. Immediately following a reset operation, the 
position of the file can be viewed as follows: 


Xn eof 


current value of the buffer variable 
next component to be accessed 

last component of the file 

special component marking end of file 


Get Operation 


Get, the fundamental input operation, causes the file component 
indicated by + to be transferred to the buffer variable; 1t then 
positions the file to the next component. After performing a get 
Operation, the file is positioned as foltows: 


XO X1 X2 X38... Xn eof 


+ 


The file can be accessed sequentially by successive get 
operations until the file is positioned at the eof component: 


XO X11 X2@ X3 ... Xn eof 
rd + 


At this point, another application of get causes the buffer 
variable to become undefined. In addition, the <eof function» 
returns the value true if called. (Until now, the <eof function> 
returned false.) If get is called when the file is at 
end-of-file, an error occurs. 


Read Operation 


The read operation {read (f,x)) is defined to be equivalent to 
the following two statements: 


x := fa; 
get(f); 
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Any errors defined for these two statements are defined for read. 
For example, f@ must be assignment-—-compatible with the type of x. 


Seek Operatian 


The seek operation is an additional function defined as a 
Burroughs extension; it allows a file to be accessed randomly. 
The command seek(f,i) positions the file such that the next get 
operation will assign the (i+1)th component of the file to the 
huffer variable. 


XO tA ae Mee Peds aa eof 
+ 


A seek aperation may specify a position that is beyond the eof 
component. The effect in this case is as if each position beyond 
the Last component were occupied by an eof component. 


Xi... ... Xn eof eof eof ... ... eof 


A get operation at this point causes the <eof function> to return 
true, Leaving the buffer variable undefined. A second get 
operation results in an error. 


Rewrite Operation 


A rewrite operation may be called while the file iS open or 
closed. If the file is open, the attached physical fite is 
released and a new empty file is created. The file is positioned 
such that an item written will occupy the first position. 


Put Operation 


The put operation causes the contents of the buffer variable to 
be transferred to the file at the position indicated by + and 
then moves the file to the next position. It is an error if the 
value of the buffer variable is undefined when put is called. 
Following a put operation, the buffer variable becomes undefined. 
A file following a rewrite and put would look tike this: 


XO 
+ 


The seek operation allows a file to be positioned such that a 
subsequent put operation will transfer the contents of the buffer 
Variable to the specified position in the file; that is, 
seek(f,i}) positions the file at the ({1+1)th position. The buffer 
variable is undefined after a seek operation; once it has been 
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assigned a value, a subsequent put operation would result in the 
following file structure: 


<--undef ined—--> 
XO oe tn Ke ae OT 
+ 


Write Operation 


A write operation (write(f,x)) is equivalent to the following two 
statements: 


f@ := x; 
put(f); 


Any errors defined for these two statements are defined for the 
write operation. For example, x must be assignment—-compatible 
with the type of fQ@). 


When a file is closed, as the result of either a reset or close 
operation, and the physical file is retained, a logical 
eand-of-file component is placed following the Last position in 
the file that was assigned a value. At this point, the file 
might took Like this: 


XO X11 O ... Xi Xi+1 0 Xn eof 


OQ marks pasitions that were never written (because of seek 
operations) and are therefore undefined. 

Close Operation 
The close operation terminates the processing of the file and 
disconnects the logical file from the physical file. 
Textfiles (Including Predefined Textfiles} 
Textfiles are intended for "human-readable" input and output. 
The feature provides for formatting and translation of values 


between internal system representation and an external character 
form. 


Textfiles in General 


A textfile has some properties in common with a "file of char", 
but they are not equivalent. A textfile can be viewed as a 
sequence of characters, but special components and operations 
exist that allow characters to be grouped into lines. More 
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specifically, a textfile is a sequence of components called 
tines, which are separated by logical components called 
end-of-line markers. Each line consists of a sequence of 
characters. 


A textfile is denoted by use of the predefined <type identifier» 
text. <A textfile variable has an associated buffer variable that 
is defined to be of type char. 


Predefined Textfiles (Input, Output) 


There are two predefined textfiles with the names "input" and 
“output.” In order to use these files, their names must appear in 
the List of <program parameters>. When they appear, they become 
implicitly declared; thus, they must not be declared again in 
the <variable declarations> of the program. If the names input 
and output do not appear in the List of <program parameters>, the 
predefined files are not declared and therefore are not available 
for use. Any subsequent declaration of either input or output 
declares a variable other than the predefined one. 


In some file handling procedures such as readin and writeln, the 
file parameter may be omitted; in these cases, the appropriate 
predefined textfile (either input or output) is inferred, as 
specified for each procedure. 


Operations on textfiles are described next. 


Reset Operation 


As with a standard file, the reset operation assumes an existing 


textfile. Following a reset operation, the file can be viewed as 
follows: 
CO C1 = nas k Las Cn ecaln 
% + 
CO... Cm_ eatln 
co... ... C2 eoln- eof 
i currently defined value of the buffer variable 
+ next component to be accessed. 
ealn end-of-line marker 
eaf end-of-file marker 
Eoln exists as a functional definition only; such a character is 


not actually present in the file, but is implied by position. 
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Get Operation 


A textfile can only be accessed sequentially. The basic input 
operation is get. Get operates on a textfile in a manner very 
similar to a get on a file of char. Each get operation accesses 
the next component of the file. When the file is in the 
following position, another get operation will put the file in 
end-of-Line state: 


co C1 at Zh ... Cn eatn 
. a: 
In end-of-line state, the <eotn function>, if called, returns the 
Value true and the value of the buffer variable is ° ” (blank). 
A second get operation results in the following file positian: 


Cn eoln 


Cm eatn 


Cz eotn eof 
When the file is positioned as follows, a get operation again 


puts the file into end-of-lLine state, and a second get operation 
puts the file into end-of-file state: 


CO C1 


CO ... Cm ealn 


co... or Cz eoln eaf 
ab + 


After the second get operation, the <eof function>, if called, 
returns true and the value of the buffer variable is undefined. 
When the file is in the end-of-file state, an error occurs if 
get, read, readln, or eoln is calted. 


Read Operation 


The read operation has special semantics for textfiles. The 
definition of a read operation depends on the type of the 
variables in the parameter List. The action of the read 
operation on a textfile is described under Read Teaxfile 
Procedure. 
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Readin Operation 


The readln operation causes the remaining characters in a line toa 
be skipped and positions the file at the beginning of the next 
Line. Readln is equivalent to the following statements: 


while not ealn(fj do 
get(f); 
get(f); 


A multiple-value readin operation such as readitn(f,X1,...,Xn) is 
Equivalent to the following statements: 


read(f,X1,...,Xnj; 
readin: 


Rewrite Operation 
As with a standard file, the rewrite operation creates a new 


empty textfile. 


Put Operation 


The basic output operation is put. Put is defined as for a “file 
of char." At any point, there is a current line that is either 
empty or partially generated. An error occurs if an attempt is 


made, through the use of put, write, or writeln, to put more 
Characters in a line than the defined maximum. 


Write Operation 


The write operation has special semantics for textfiles. The 
definition of write depends on the type of the variables in the 
parameter List. The action of write on a textfile is described 
under Write Textfile Procedure. 


Writeln Operation 
The current line is terminated by the writeln operation. A 


multiple-value writeln operation such as writeln(f,X1,...,Xn) is 
equivalent to the following Statements: 
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write(f,X1); 


write(f,Xn); 
writaln; 


If a reset operation is performed or the file is closed without 
being released and the current line is not empty, an implicit 
writeln is performed and an end-of-file i8 written. 


Close Operation 


The close operation terminates the processing of the file and 
discannects the logical file from the physical file. 


Lazy 1/0 


Textfile input aperations require special processing to ensure 
that the operations are performed in the order that the 
programmer expects. In particular, a problem arises when reading 
from a textfile assigned to a remote file. A typical interactive 
program prompts a user for input and then reads the user’s 
response. Because reset, read, and readln operations implicitly 
read one character ahead (that is, the buffer variable is 
assigned a value that will subsequently be stored into a variable 
in a read or readin parameter tist}, most interactive programs 
would thus have to wait for the user to respond to 2 prompt that 
has not yet been displayed. 


To avoid these potentially frustrating interactions, Burroughs 
Pascal uses an input technique known as “tlazy I/O." With Lazy 
I/O, data is not transferred to the buffer variable untit it is 
required by the program. Thus, if a get,:read, or readin 
operation is performed and the value of the buffer variable 
following the operation is defined to be the first character of a 
new tine, that tine is not read and the value is not actually 
assigned until another get, read, ar readln operation is 
performed. 


Other implementations may use other I/O techniques under these 
circumstances, and programs may behave differently. 

Use of File Attributes 

Burroughs Pascal, together with the B 1000 1/0 subsystem, 
provides several methods far assigning and interrogating the 


values af file attributes. File attributes can be assigned in 
the following ways: 
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1. Through file equation as the program is executed. 


2. By specification of the file attributes in the 
<program parameters>. 


3. Dynamically, through the <setattribute procedure>. 


When settings from these methods conflict, precedence is 
determined by the following sequence {highest to Lowest): (1) 
<Setattribute procedure>, (2) run-time file equation, (3) 
settings in the <program parameters>. 


PROCEDURE AND FUNCTION DESCRIPTIONS 


Described next, in alphabetic order within groups, are all the 
procedures and functions available in B 1000 Pascal. The groups 
are 


Fite-Handling Procedures and Functions 
Type Transfer Functions 

Dynamic Atlocation Procedures 
Arithmetic Functions 

General Procedures and Functions 


File—-Handling Procedures and Functions 

Following are descriptions of all the file-handling procedures 

and functions. 

Close Procedure 

The <claose procedure> terminates processing of the file denoted 

by <textfile variable> or <file variable>. An error occurs if 

the file is not open when the <close procedure> is invoked. 

<close procedure> syntax: 

---- CLOSE -- ( -4+- <textfile variable> ~+-+----~---------------- +- J - 
! 1 | 1 
+- <file variable» ----- + +- , <close option> -+ 


<close option> syntax: 


neo CRUNCH Seba aeoke eee see eee eset eee See ee 


+-- PURGE ---+ 
| ! 
+-- SAVE ----+ 
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After a close operation, the value of the buffer variable 
associated with the file becomes undefined. A subsequent attempt 
to perform any read, write, or seek operation after a close 
operation, without first calling the open, reset, or rewrite 
procedure, iS an error. 


A <close option> may be used to further specify the disposition 
of the file being closed. If a <close option> is not specified, 
permanent files remain permanent and are repositioned to the 
beginning of the file if the device permits this. Temporary 
files are released. The connection between the logical file and 
the physical file is always severed. 


The meaning of a particular <close option> depends on the KIND of 
the file being closed. The valid <close optionos are defined as 
follaws: 


crunch The crunch option causes the file to be made a 
permanent file. In addition, the value of the file 
attribute CRUNCHED is set to true, which has the effect 
of returning unused storage areas tao the system. The 
connection between the logical file and physical file 
is severed. The crunch option is valid for disk files 
only. 


The purge option causes the file to be discarded. A 
tape file is rewound, and, if a write ring is present, 
a scratch tabel is written. A disk file is removed 
from the directory. The connection between the logical 
file and the physical file is severed. The purge 
option is valid for tape and disk files only. 


The save option repositions the file to the beginning 
and makes it a permanent file. The connection between 
the Logical file and the physical file is severed. The 
save option is valid for tape and disk files only. 


If a <close option> that is invalid for the KIND of the file is 
specified, a simple close appropriate to the device is performed. 


The <close procedure> is a Burroughs extension to ANSI Pascal. 


EOF Function 


The <eof function> returns, as a Boolean value, an indication of 
whether or not an operation attempted to access beyond the last 

component of a specified file. The function returns true if the 
Last operation on the file was a get, read, or reset beyond the 

last component. 
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<eof function> syntax: 


---- EOF --+4+-------------—--~-----~---------- $e 
! ! 
+-- ( -- <file variable» -- } --+ 
| | 
+---- <textfile variable» -—----- + 


The file to which the function applies may be specified by 
including a <file variable> or <textfile variable> in the 


function call. If no file is specified, the function applies to 
the textfile mamed input If the file is not apen, the function 
returns false. If the specified file is not open when the <eof 


functiagn> is called, an e@rror occurs. 


EOLN Function 


The <eoln funcetion> returns, as a Boolean value, an indication of 
Whether or not a particular textfile is positioned at an 
end-of-line marker. If the file is positioned at an end-of-line 
marker, the function returns true; otherwise, the function 
returns false. 


<eatln function> syntax: 


+-- { -- <textfile variable>o -- j sea 


The file to which the function applies may be specified by 
inckuding a <textfile variable> in the function call. If no file 
is specified, the function applies to the textfile named input. 


If the specified file is not open when the <eoln function> is 
called, an error occurs. 


Get Procedure 


The <get procedure> assigns to the buffer variable of the file 
denoted by <textfile variable> or <file variable> the value of 
the component corresponding to the current position of the file. 
If the file is positioned beyond the last component when the 

<get procedure> is invoked, the <eof function> becomes true and 
the value of the buffer variable associated with the file becomes 
undefined. 


<get procedure> syntax: 


—~--- GET -- ( --+-- <textfile variable» --+-- ) ~--~--~--------~-------- 
| ! 
+-- <file variable>s------- + 
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If a <textfile variable> jis specified and the end-of-line marker 
is reached, the value assigned to the buffer variable is “” “% 
(blank); at this point, the <eoln function> would return true. 
The next call on the <get procedure> will access the first 
component of the next line or, if there are no more lines, will 
put the file in end-of-file state. 


An error occurs if the file is not open. If, immediately 
preceding the invocation of the get procedure, the <eof function» 
yields the value true, an error occurs if the <eof functions 
still yields true following the invocation. 


Page Pracedure 
The <page procedure> causes a <writeln procedure> without 
carriage control, followed by a skip-to-top-of-—page action. If 
the <textfile variable> is omitted, the action applies to the 


textfile output. 


<page procedure> syntax: 


+-- { -- <textfile variable» —-- --+ 


If the <page procedure> is invoked for a file that is not 
assaciated with a printer, the effect is equivalent to invoking 
the <writeln procedure>. An error occurs if the file is not open 
prior to the execution of the <page procedure>. 


Put Procedure 


The <put procedure> writes ta the file denoted by 

<textfile variable> or <file variables the value of the buffer 
variable associated with that file. The value of the buffer 
Variable then becomes undefined. 


<put procedure> syntax: 


---- PUT -- ( --4+-- <textfile variable> 
| 
+-- <file variable» 


An error occurs if the file is not open prior to execution of the 
<put procedure>. An error also occurs if a <textfile variable» 
is specified and the <put procedure> causes the Line to exceed 
the Length determined by the value of the MAXRECSIZE file 
attribute. 
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Read Procedure 


The <read procedure> causes the specified <variable>s to be 
assigned sequential values from the file denoted by 

<file variable>. The action of read(f,x) is equivalent to the 
following Statements: 


: { x i8 assigned the vatue of the buffer variable } 
}; { f@ is assigned the next value in the file } 


f@ 
( f 


XI= 
get 


Thus, the value of the buffer variable (f@) must be assignment 
compatible with the <variable> being read (x). 


<read procedure> syntax: 


---- READ -- ( -- <file variable> -- , -- <variable> -- } --------~--- 


Read Textfile Procedure 
The <read textfile procedure> is similar to the <read procedure>, 
except that it applies to textfiles instead of standard files. 
When the <textfile variable> is not specified, the read is 
performed on the predefined textfile named input. 


<read textfile procedure> syntax: 


+ <textfile variable> , + 


<fead parameter> syntax: 


----+-- <char variable»----~- Sas a NA te tas ee BGO cs ok rE efit Sion 
+-- <integer variable> --+ 
+-- <real variable> -—---- + 


The list of <read parameter>s specifies the variables into which 
the information in the textfile is to be read. As is true of the 
<read procedure>, reading a tist of <read parameter>s is 
equivalent to reading the variables in successive read 
statements. 


An errar occurs if the textfile is not open, or if the 


<eaf function> would return true prior to the execution of the 
<read textfile procedure> or any inferred subcomponent of it. 
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The action of the <read textfile procedure> depends on the type 
of the specified <read parameter>, as explained next. 


Type = <char variable» 


The action of the <read textfile procedures with a 

<char variable> parameter is equivalent to the following two 
statements, where c is the specified <char variable» and f is the 
file to be read: 


c i= fQ; 
get(f) 


Example: 


var cl, ce : char, 

fo: text; 
begin 
read(f,c1,ce}; 
end; 


If the textfile contains the characters 


“defgh" 
% 


and the buffer variable is at the location indicated hy the 
asterisk, the read procedure assigns the value d to variable c1 
and the value e to the variable ce. 


Type = <integer variable>d 


Beginning with the character at the current buffer variable 
location, characters are scanned, across several lines if 
necessary, until a nonblank character i8 encountered. Starting 
with the first nonblank character, the sequence of nonblank 
characters is then interpreted as an integer value, which may 
include a sign. The format of the number must be consistent with 
the format defined for an <integer constant> appearing in a 
Pascal program, and the value must be assignment compatible with 
the type of the parameter. 


Following the <¢read textfile procedure>, the buffer variable is 


assigned the vatue of the next character or, if there are no more 
characters in the tine, it iS put into eal state. 
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Example: 
Var i : integer; 
f : text: 
begin 
read(f,i); 
end; 


If the textfile contains the character sequence 


* -123degrees" 
R 


a 


and the buffer variable is positioned at the location indicated 
by the first asterisk, the read procedure assigns the value -—123 
to the variable i and leaves the buffer variable positioned at 
the Location indicated by the second asterisk. (d is not a valid 
character in an integer. ] 


Type = <real variable» 


Beginning with the character at the current buffer variable 
Location, characters are scanned, across several lines if 
necessary, until a nonblank character is encountered. Starting 
with the first nanblank character, the sequence of nonblank 
characters is then interpreted as a reat value, which may include 
a sign and an exponent. The format of the number must be 
consistent with the format defined for a <real constant» 
appearing in a Pascal program. 


Following the <read textfile procedure>, the buffer variable is 
assigned the value of the next character or, if there are no more 
characters in the Line, it iS put into eol state. 


Example: 
var f : text; 
po: real; 
begin 
read(f,r); 
end: 


If the textfile contains the character sequence 


7 98.6degrees" 
* e 


and the buffer variable is positioned at the location indicated 
by the first asterisk, the read procedure assigns the value 98.6 
to the variable r and leaves the buffer variable positioned at 
the location indicated by the second asterisk. {d is not a valid 
character in a reat value.) 
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If the textfile contains the character sequence 


" -1234e-27Mev" 


id 


and the buffer variable is positioned at the location indicated 
by the first asterisk, the read procedure assigns the value -1234 
times 10 ta the power of -27 to the variable r and leaves the 
buffer variable positioned at the location indicated by the 
second asterisk. 


Readln Procedure 
The <readin procedure> performs the same action as the 
«read textfile procedure> and then moves the file tao the start of 
the next line. If there is no next line, the file is positioned 
at end-of—-file. 


«readin procedure> syntax: 


~--- READLN 


+—- <textfile variable> 
I 


+- <textfile variable» --~--~-~------~-~-----~---~------~ * 


If no <textfile variable> is specified, the <readin procedure» 
applies to the textfile named input. 


An error occurs if the file is not open, or if the ¢eof function» 
would return true prior to the execution of the 
<readin procedure> or any subcomponent of it. 


Reset Procedure 


The <reset procedure> positions the file to the beginning. If 
the file is already open, it is repositioned to the beginning. 

If the file is closed, it is opened. If the <reset procedure> is 
applied to a textfile that is currently in generation mode and 
there is a partially generated tine, an automatic 

<writeln procedure> is performed before the textfile is 
repositioned. 
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<reset procedure> syntax: 


---- RESET ---- ( --+-- <file variable» ----+--- to- J) ----- ne 
H ! 


+--— <¢textfile variable» --+ 


If the file i8 not open, the <reset procedure> invokes the 1/0 
Subsystem search logic to find a matching physical file with 
which to associate the internal Pascal <file variable>. Untess 
otherwise specified, an attempt is made to locate an existing 
disk file whose title is given by the first 10 characters 
(transtated to upper case) of the <file variable> or 


<textfile variable> identifier. If the identifier is the 
predefined file identifier “input,” a search is made for a remote 
file. This search can be modified by changing certain fite 


attributes, such as TITLE, or through file equation. 


When the <reset procedure> is called, an existing file is always 


assumed. If a matching file cannot be found, the program is 
suspended in a system NO FILE condition, awaiting an operator 
response. 


Following a <reset procedure>, the file is in end-of-file state 
if the file is empty. Otherwise, the buffer variable is defined 
to have the value of the first component of the file. 


Rewrite Procedure 


The <rewrite procedure> creates a new, empty file. If the file 
is already open, it is discarded, and a new, empty file is 
created. If the file is closed, a new, empty file is created. 


Unless otherwise specified, a disk file with a title given by the 
first 10 characters (translated to upper case) of the 

<file variable> or <textfile variable> identifier is created. 

{If the identifier is the predefined file identifier “output,” a 
remote file is created. } 


<rewrite procedure> syntax: 


---- REWRITE -- ( --+-- «file variable» ------ t-- ) ------------------ 
! | 


+--— <textfile variable> --+ 


Immediately following the invocation of the <rewrite procedure>, 
the value of the buffer variable is undefined and the 

<eof function» will return true. The <eof function> returns true 
as long as the file is in generation mode. 
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Seek Procedure 


The <seek procedure> positions the file denoted by 

<file variable> at a specified point in the file. The file is 
positioned such that the next <get procedure> or <put procedure> 
is performed on the component specified by the 

<integer expression>. Components are numbered beginning at O 
(that is, zero relative). If the value of the specified 
<integer expression> is less than O, an error occurs. 


<seek procedure> syntax: 
---- SEEK -- { -- «file variable» -- , -- <integer expression» -- ) -- 


The <seek procedure> is a Burroughs extension to ANSI Pascal. 


Write Procedure 


The <write procedure> causes the specified <expression>s to be 
written sequentially to the file denoted by <file variable». 


«write procedure> syntax: 
—---- WRITE -- ( -- <file variable» -- , -- <expression> -- ) --~----+-+~- 
An error occurs if the values of the <expression>s specified in 
the <write procedure> are not assignment compatible with the file 
type of the specified <file variable>. An error also accurs if 
the file is not open. 

Write Textfile Procedure 
The <write textfile procedure> is similar to the 
«write procedures, except that it applies to textfiles instead of 
standard files. When the <textfile variable> is not specified, 
the write is performed to the textfile named output. 


<write textfile procedure> syntax: 


+ €------- ,omeccccce- + 
! } 
---- write ( -+----------------------- +-+ <write parameter> -+-- ) - 
| | 
+ <textfile variable> , + 
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<write parameter> syntax: 


----t+-- <Boglean expression> --~+-+-------------------------------- +--- 
! un. | 


+-- <Char expression» ~---- + + : <field width»---------------- + 
! | | 


+-- <integer expression> --+ | 
| ! 


+-- «real expression» --+---~--------------------------------- + 
! ! 

+ : «field width» ~-~+--------~--------- + 

| | 

+ <frac digits> + 


<field width> syntax: 
—--~- «integer expression> ---~--~-~--------~--------~--+----------- +--+ 
<frac digits> syntax: 
mc-- <integer expressi0gn> ---------—--~-------==----- nee 


An error occurs if the textfile iS not open. Also, an error 
occurs if the operation causes the Length of the current Line ta 
exceed the maximum length, which is determined by the value of 
the MAXRECSIZE file attribute. 


The List of <write parameter>s specifies the variables whose 
values are to be written to the textfile. The <field width> and 
«frac digits> specifications allow the programmer to contral 
aspects of the formatting af the values written. If these 
specifications are omitted (where they are allowed), an 
appropriate representation of the value is chosen by the 
compiler. If specified, <field width> and <frac digitsS> must he 
greater than or equal to one. 


The action of the <write textfile procedure> for each type of 
<Write® parameter> is described in the following paragraphs. 


<Boolean expression» 


For the values of true and false, the characters strings " TRUE" 
and “FALSE”, respectively, are written. The default 
<field width> for a <Boolean expression> is five characters. If 


a <field width> is specified that is smaller than the length of 
the string to be written, the first <field width> characters are 
written. If the specified <field width> is larger, leading 
blanks are written. 
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Examples: 


Procedure Result 

TRUE" if b is true 
"FALSE" if b is false 
write(f,true:2) "TR" 
write(f,true:10) , TRUE" 


write(f,6) 


Quotation marks show spacing. 


<char expression> 


For a value of the <char type>, the character is simply moved 
the buffer variable and “put"“ into the file. The default 
<field width» for a <char expression> is 1 character. If a 
<field width> greater than 1 is specified, leading blanks are 
written. 


Examples: {c is a <char variable» that contains the value $} 


Procedure Result 
write({f,cj 
write(f,c:3) 


Quotation marks show spacing. 


<integer expression> 


Values of the <integer type> are formatted with a sign {minus 

the number is negative, blank if the number is poSitive), 
followed by the decimal representation af the integer value. 
default <field width» for an <integer expression> is ten 
characters. If a <field width> is specified that is smaller than 
the length of the number to be written, the <field width» 
specification is ignored, and the entire number is written. If 
the specified <field width> is targer, leading tlanks are 
written. 


Examples: [i is an integer with value -12345) 


Procedure 
write(f,i) 
write(f,i:3 
write(f,i:1 


} 
e) 


Result 


-12345" 
"~12345" 
* -12345" 


Quotation marks show spacing. 
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<real expression» 


Values of the <real type> are written in floating-point or 
fixed-point format, depending on whether the <frac digits» 


specification is provided. If it is provided, the number is 
written in fixed-point format; if it iS not, the number is 
written in floating-point format. The default <field width> for 


a <real expression> is 15 characters. 


Floating-Point Format 


In floating-point format, the number contains the following 
components: 


1. A sign; minus if the number is negative, blank if it is 
positive. 

2. The first significant digit, or zero, if the number is zera. 

3. A decimal point (.) 

4. The fractional part (at least one digit}. 

5. The exponent symbot [(E) 

6. The sign of the exponent (+ or —-). 

7. Two digits of exponent. 


If the <field width» specified is smaller than the minimum number 
of characters necessary to represent the number, the 

<field width> specification is ignored, and the number is written 
with only one fractional digit. If the specified <field width» 
is Larger, the number is expanded by adding trailing zeros to the 
fractional part. 


Fixed-Point Format 


In fixed-point format, the number contains the following 
components: 


1. A minus sign (-) if the number is negative. 

2. The integral part of the number -- trunc(<real expression>). 
3. A decimal point (.). 

4. «frac digits» of the fractional part of the number. 
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If a <field width> is specified that 


is smaller than the minimum 


number of characters necessary to represent the number in 


fixed-point farmat, the <field width» 
and the entire number is written, 


specification is ignored 


including <frac digits> of the 


fractional part. If the specified <field width» is larger, the 
number is written with leading blanks. If the number of 
significant digits requested is fewer than the number of 
significant digits in the system representation of the number, 
the number is rounded at the last digit written. 


Examples: 
Procedure 


write(f, 1.2345:6:4) 
write(f,1.2345: 20) 
write(f,-27.1828E-3:14) 
write({f,0.31:3) 
write(f,-96E12:7) 
write(f,0.317269: 3} 
write(f,-965E12:7) 
write(f,0.31726E7:7:3) 
write(f,-965E12:1:7) 
write(f,0.31726E7:13:3) 
write(f,-965E-2:12:7) 
write(f,3.1776E-1:13:3} 
write({f,-96e2 5E-2:12:2) 


"7.2345" 
" 1.2344999313354E+00" 
"~2.7182801E-0e2" 
" 3.1E-01" 
"~9.6E+13" 
" 3.2E-01" 
"—9. 6E+14" 
"3172600.031" 
"-964999961853027 .3437509" 
3172600 .031" 
-~9.6499996" 
0.318" 
-9.625" 


Quotation marks show spacing. 


Writeln Procedure 


The <writeln procedure> performs the same action as the 
«write textfile procedure> and then starts a new line. If no 


<textfile variable» is specified, 


the <writeln procedure» applies 


to the textfile named output. If no <write parameterss are 
specified, a single blank tine is written to the textfile named 
output. Following the execution of the <writeln procedure>, the 
value of the buffer variable becomes undefined. 


An error occurs jf the file is not open. 
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<writeln procedure> syntax: 


---- WRITELN --~------------------------------------------------------ 
YH eee +------ 
| ! 
H + €-------- ,owotccccc- + | 
! ! | 1 
+ ( +-------------------------- +-+- <write parameter> +-+ ) -+ 
! ! y 
+- <textfile variahle>» , —-+ | 
| | 
+—- <textfile variable» ----~-----~--~--------~+~----+--- + 


Type Transfer Functions 


One of the major reasons for data typing is to allow the compiler 
to enforce type compatibility restrictions. These restrictions 
help the programmer ensure that data is handled in a controlled 
and consistent fashion throughout the program. For example, the 
compiler will not atlow two values of an enumerated type such as 
"calor" to be arithmetically subtracted. 


Type transfer functions are provided to allow values of a few 
data types to be converted to values of certain other data types. 


<type transfer function> syntax: 
weeps KOH PUREE On ore ee ee Se eee eee eee 
! I 
+-- <ord function> -—+ 


CHR Function 


The <chr function> returns the character whose ordinal number is 


designated by <integer expressiaon>. If the <integer expression» 
is not a valid ordinal number for the standard character set, an 
error occurs. Valid ordinal numbers for the EBCDIC character set 


are in the range O..255. 
<chr function> syntax: 


---- CHR -- ( -- <integer expression> -- ) -------------- 22 - en 
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Examples: 


The 
to c 


var c1, ce : char; 
begin 

c1 := chr(129}; 

c2 := chr(240); 
end: 


character a is assigned tao cil and the character O is assigned 
2 


ORD Function 


The 
numb 


<ord 


<ord function> returns, as an integer value, the ordinal 
er of the specified <ordinal expression>. 


Funttion> syntax 


ORD -- ( -- <ordinal expression> -- 


Examples: 


In t 
valu 


j2 : integer; 
ord{’a’j; 
ord(true); 


he standard EBCDIC character set, i1 is assigned the integer 
e129 and [2 is assigned the integer value 1. 


Dynamic Allocation Procedures 


The 
<poi 
deal 
acti 
in t 


<dyn 


dynamic allocation procedures, used in conjunction with 

nter <pointer variables», allow variables to be allocated and 
located dynamically. that is, independently of the 

Vation of a specific <block>. A variable that is allocated 
his way is catled a dynamic variable. 


amic allocation procedure> syntax: 
<mark procedure—------- 4+—-------------- I 


<new procedure> 


<release procedure> —-+ 


Dynamic variables are allocated in a storage area called the 


"hea 
heap 
proc 


np." Creation of dynamic variables and manipulation of the. 
is performed through the use of the three predefined 
edures new, mark, and release. 
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The new procedure is used to allocate a dynamic variable. It 
accepts a <pointer variahle> as a parameter, to which it assigns 
a reference value that can be used to refer to the newly assigned 
Variable. The new procedure is the only way to allocate a 
dynamic variable, and it is used for both the collection and the 
Stack methods of heap management. 


The mark and release procedures are used tO manage the heap as a 
stack. A stack can be viewed as a time-ordered sequence of 
Variables, where the most recently allocated variables are 
top of" variables allocated earlier. Stack management is 
particularly useful when the Lifetime of a group of variables is 
identical. 


on 


The mark procedure stores a reference to the dynamic variable 
that is the top-of-stack variable at the time the procedure is 
called. <A "mark value” 18 assigned to the <pointer variable> 
that is passed as a parameter. This value cannot be used toa 
access the top-of-stack variable; instead, it is used to 
indicate a position in the stack for tater use by the release 
procedure. Once the mark procedure has been called, the new 
procedure allocates all new variables such that they are 
Logically above the mark in the stack. 


The release procedure deallocates all variables that were 
allocated above the mark specified by the <pointer expression> 
passed as itsS parameter. The pointer must contain a mark value, 
that is, a value assigned by the mark procedure. The variable 
that was the top-of-stack variable at the time the mark procedure 
was called again becomes the top-of~stack variable. 


To maintain the heap as a stack, one typically calls the mark 
procedure, then the new procedure one or more times, then the 
release procedure. The mark procedure may he called several 
times before the release procedure is finally called. When 
release is called, it deallocates variables down to the mark it 
is passed aS a parameter, regardless af whether or not there 
exist marks above that one in the Stack. 
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Example: 
program mark release; 


type ptr to node = nade; 
node = record 
name : packed array [{1..20) of char; 
next nade : ptr to node; 
end: =a 
var marker : ptr to node; 
personi, ~ 
persone, 
person3 : ptr_to node; 


begin 
mark{marker}) ; 
new(persoant); 
new(persone); 
new(persond); 
release(marker); 
end. 


The call on the «mark procedure> marks the heap at the point of 
the call. After new items have been created in the heap, the 
call on the <release procedure> causes all three dynamic 
variables to be deatlocated. The three pointers person, 


persone, and persons are undefined after the execution of the 
<release procedure>. 


Dynamic variables can be very useful for certain applications. 
They can also cause confusion when used incorrectly. In 
particular, care should be exercised to ensure that the 
correspondence between pointers and variables is properly 
maintained. If a variable is deallocated while a pointer toa the 
variable still exists, the painter becomes a “dangling reference” 
(a reference to a nonexistent variable). If a variable exists 
but all references to it have been lost (for example, because a 
new value was assigned to the only pointer that referenced the 
variable), the variable is inaccessible and its space is wasted. 
In ANSI Pascal, the use of a dangling reference in an attempt to 
aCCeESS a nonexistent dynamic variable is defined to be invalid, 
but in this implementation, as in most others, these errors are 
not always detected. 


Mark Procedure 


The <mark procedure> assigns to the <pointer variable> a mark 
value, a value that corresponds to the location of the most 
recently allocated dynamic variable, that is, the current 
top-of-stack variable. Subsequent calls to the <new procedure» 
allocate dynamic variables “above” this mark; such variables are 
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referred to as marked variables. 


<mark praocedure> syntax: 


-—--- MARK -- ({ -- <pointer variable» -- ) ---------------------------- 


The <pointer variable> can later be used in a call on the 
<release procedure>, which simultaneously deallocates all 
variables above the mark. Because the mark value identifies a 
set of variables rather than a single variable, an error occurs 
if a variable that contains a mark value is used in any other 
context, for example, as a reference to a variable. 


The <mark procedure> is a Burroughs extension to ANSI Pascal. 


New Procedure 


The <new procedure> allocates space for a new dynamic variable of 
the type with which the <pointer variable> is associated. The 
<pointer variable> then becomes a reference to the location of 
the new variable. 


«new procedureé> syntax: 


~--- NEW -- ( -- <pointer variable> -- ) -----------------------+------ 


Release Procedure 


The <release procedure> deallocates the marked variables denoted 
by the <pointer-expression>. An error occurs if the 

<pointer expression> does not contain a mark value. {Refer toa 
the Mark Procedure. } 


<release procedure> syntax: 


-~--- RELEASE ~- ( -- <pointer expression> -- ) -~--------------------- 


Following the execution of the <release procedure>, all pointer 
variables and: functions that reference the variables that have 
been deallocated become undefined. 


The <release procedure> is a Burroughs extension to ANSI Pascal. 


Arithmetic Functions 


The <arithmetic function>s provide functions for use in 
<arithmetic expressionods. 
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<carithmetic functions> syntax: 


----+--— <abs function> ---~-~+---------~~----------~--~------~-~------------ 


I | 


+-- <arctan function> —-+ 
| { 


+-- <cos function> ----+ 
! { 


+-- ¢exp function> ----+ 
I 


+-- ¢<ln function» ----- 


<raound functions —-+° 
{ 


<sin function> -—~-—-+ 
! 


<sqr funetion> ----+ 
| 


<sart function> ---+ 
| 


<tan funetion> ~~--+ 
| 


<trunc function> --+ 
ABS Function 
The <abs function> returns the absolute value of the specified 
<arithmetic expression>. The result returned is of the same tyne 
as the specified <arithmetic expression>. 


<abs function> syntax: 


-~--- ABS <arithmetic expression» -- ) --~-----------+------- A= 


ARCTAN Function 


The <arctan function> returns, as a real value in radians, 
principal value of the arctangent function at the specified 
<arithmetic expression». 

pi.<arctan function> syntax: 


----— ARCTAN -- ( -- <arithmetic expression> -- J) -----------~----~----- 


COS Function 
The <cas function> returns, as areal value, the cosine of the 


angle specified by the <arithmetic expression>, which is assumed 
to be in radians. 
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<cos function> syntax: 


---~ COS -- { -- <arithmetic expression> -- ) ----------------------- 


EXP Function 


The <exp function> returns, as a real value, e (the hase of the 
Natural logarithms) raised to the <arithmetic expression> power. 


<exp function> syntax: 


---- EXP -- ( -- <arithmetic expression> -- } -----------------=------ 


LN Function 


The <tn function» returns, as a real value, the natural logarithm 
of the specified <arithmetic expression>. 


<tn function> syntax: 


---- LN -- ( -- <arithmetic expression> ~—- ) ------+----------~------- 


ROUND Function 
The <round function> returns the nearest integer value to the 
specified «real expressiaon>. If the vatue of the 
<real expression> is positive or zero, the resuit of the 
<round function> is equivalent to the value of trunc({<real 
expression>+0.5). If the value of the <real expression> is 
Negative, the result of the <round function> is equivalent to the 
Value of trunc(<real expression>-O.5). 


It is an error if the nearest integer to the <real expression> is 
greater than maxint or less than -maxint. 


<round function> syntax: 
--~--—- ROUND -- ( -- <reai expression» -- ) --------------------------- 
Examples: 

round(3.5) yields the value 4 


round(-8.5) yields the value -4 
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SIN Function 
The <sin function> returns, as a real value, the sine of the 
angle specified by the <arithmetic expression>, which is assumed 
to be in radians. 


<sin function> syntax: 


---- SIN -- ( -- <arithmetic expression> -- Jj 


SOR Function 
The <sqr function> returns the square of the value of the 
specified <arithmetic expression>. The result returned is of the 
Same type as the <arithmetic expression>. 


If the result value is aut of range for its type, an error 
occurs. 


<sqr function> syntax: 


---- $§@QR -- -- <arithmetic expressiaon> ~ 


SQRT Function 
The <saqrt function> returns, as areal value, the square 
the value of the specified <arithmetic expression>. The 
<arithmetic expression> must be greater than or equal to 
«sqrt functiaon> syntax: 


---- S@QRT -- -- <arithmetic expression> ~—- 


TAN Function 
The <tan function> returns, as a real value, the tangent 
angle specified by the <arithmetic expression>, which is assumed 
to be in radians. 
The <tan function> is a Burroughs extension to ANSI Pascal. 


<tan funetion> syntax: 


~--- TAN -- ( -- <arithmetic expression> —- 
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TRUNC Function 


The <trunc function> returns the integer value, computed by 
truncation, of the specified <real expression>. If the result is 
greater than maxint or less than -maxint, an error occurs. 


<trunc function> syntax: 


-6658902 to 665800 
---- TRUNC -- ( -- <real expression> -- ( --------------------------- 


Examples: 
trunc(3.5) yields the value 3 


trunc(-3.5) yields the value -8: 


Generat Procedures and Functions 


Many general procedures and functions are extensions tao ANSI 
Pascal to allow the program to access system-specific features, 
such as file attributes, the program’s accumulated run time, I/O 
time, and elapsed time, the interface to the Operator Display 
Terminal (ODT), and the system’s time and date values. Other 
general procedures and functions are part of ANSI Pascal and 
provide features that are not described elsewhere in this manual. 


«general procedure> syntax: 


ane es <abort procedure> —---- $5 SS SSeS se 5+ SS33-353SS4S-4SSeS SSeS 5 
i 
nee: <accept procedure» seen 
I I 
= <date procedure> ~----- l 
i | 
+-- <display procedure» aaa 
i 
a <time procedure>------- l 
1 ! 
ces <Wwait procedure> —----- 


<general function> syntax: 


----+-- <add function>------- +-----~------- ee 
| ! 
+-- «pred function> ----- ! 
| ! 
+-- «runtime function> --! 
! ! 
+-- <succ function» ----- ! 
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Abort Procedure 


The <abort procedure> forces an immediate, abnormal termination 
of the program. 


The <abort procedure> is a Burroughs extension to ANSI Pascal. 
<abort procedure> syntax: 


=== ABORT 


Accept Procedure 


The <accept procedure> displays the contents of the 

<string canstant> or <string variahle> aon the Operator Display 
Terminal (ODT), suspends the program until a response from the 
operator is entered {through the AX ODT command), and then places 
the operator’s response into the <string variable> with either 
blank fill or truncation if the message size is not the same size 
as the <string variable>. The maximum tength of the 

«string variable> is 255 bytes. 


The <accept procedure> is a Burroughs extension to ANSI Pascal. 
<accept procedure> syntax: 


---- ACCEPT -- ( -+ <string constant> +- , -- <string variable> 
1 | 


+ <string variable> + 


Example: 


var str : packed array [1..3] of char; 

begin 

accept(’Do you want to continue? (yes or no)’,str); 
end; 


The string "Do you want to continue? {yes or noj" is displayed 
on the ODT. The response is placed in str. 
Date Procedure 
The <date procedure> returns the current date in the parameters 
<year>, <month>, and <day>. Values returned are all of the 
<integer type> and are in the following ranges: 
parameter 
<year> 


<month> 
<day> 
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The <date procedure> is a Burroughs extension to ANSI Pascal. 
<date procedure> syntax: 

---- DATE -- [ -- <year> -- , --— «month> -- , -- <day>» -- ) ---------- 
<year> syntax: 
---- <variable» --~--------- 9-9 a ee eee 
<month> syntax: 
—--- (VOP1aDlLB> --n eee ern a eee 


<day> syntax: 


——n—— “VEL PADL E> peer nw mr nn nn rn renter 


Example: 
var year : integer; 
month : integer; 
day ee eee [ee 
begin 
date (year, month, day); 
end; 


The year is placed in the variable year, the month is placed in 
the variable month, and the day of the month is placed in the 
variable day. : 


Display Procedure 


The <display procedure> displays the contents of the string on 
the ODT. The maximum length of the display string is 255 bytes. 


The <display procedure> 38 a Burroughs extension to ANSI Pascal. 
<display procedure> syntax: 
-~--- DISPLAY -- ( --+-- <string constant> --+---- J) -~---------- ame 


{ ! 
+-- ¢string variahle>» —-+ 


Odd Function 
The <odd function> returns, as a Boolean value, a result 
indicating whether or not the value of the <integer expression> 


is odd. The function returns true if the value is odd and false 
if it is even. 
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<odd function> syntax: 
~--- ODD -- ( -- <integer expression». 
Example: 


var b : Boolean: 
begin 

b := aodd(79 mod 27); 
end; 


PRED Function 


The <pred function> returns the predecessor of the 

<ordinal expression>; that is, a value whose ordinal number is 
one tess than that of the <ordinal expression>. If the 
<ordinal expression> has no predecessor value, an error occurs. 


The function returns a result of the same type as the 
<ordinal expressian>. 


<pred function> syntax: 
---- PRED -- ( -- <ordinal expression> -- 
Examples: 
type color = (red, yellow, blue, green, tartan); 
var swatch : color; 
ji : integer; 
hegin 
swatch := pred{blue}); 
j := pred(7}; 
end: 
The first example assigns yellow to the variable swatch. 


The second example assigns 6 to the variable i. 


Runtime Function 


The <runtime function> returns, as a real value (units: 
seconds), the processor time that has been charged to the 
program. ; 


The <runtime function> is a Burroughs extension to ANSI Pascal. 


<runtime function> syntax: 


---- RUNTIME 
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SUCC Function 


The <succ function> returns the value af the successor of the 
<ordinal expressian>; that is, the value whose ordinat number is 
one greater than that of the <ordinal expression>. If the 
<ordinal expression> does not have a successor value, an error 
occurs. 


The function returns a value of the same type as the 
<oOrdinal expression>. 


<succ function> syntax: 


---- SUCC -- ( --ordinal expressiagn> -- J) ~--~-----------------+-----+---- 
Examples: 

type color = (red, yellow, blue, green, tartan); 

var wool dye : color; 

alpha : char; 

hegin 

wool dye := succ(blue); 

alpha := succ(’y’}; 

end. 


The first example assigns green to the variable wool dye. 


’ s 


The second example assigns “2° to the variable alpha. 


Time Procedure 
«time procedure> syntax: 
---- TIME -- ( -- «hours>» -- , -- <minutes> -- , -- <Secands> -- } 
<hours> syntax: 
—---— “<VaEP ADL A> -H mmm nn rr rs 
<minutes> syntax: 
---- (VBP iaDlL A> --e eee nr rrr een 
<seconds> syntax: 
mom (VAP ADL BD meee een nn a rr rrr rere 
The <time procedure> returns the current time of day {based on a 
24-hour clock) in the parameters <hours>, <minutes>, and 


<secaonds>. The values returned are of <integer type> and within 
the following ranges: 
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parameter 


«hours> 
<minutes> 
<seconds> 


The <time procedure> is a Burroughs extension to ANSI Pascal. 


Example: 


Var hours : integer; 
minutes : integer; 
seconds : 0..59; 
begin 
time (hours, minutes, seconds); 
end: 


The hour is placed in the variable hours, the number of minutes 


Past the hour is placed in the variable minutes, and the number 
of seconds into the minute is placed in the variable seconds. 
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SECTION 7 
VARIABLES 


A <variable> is a declared item that, unlike a constant, can be 
assigned a value during the execution of the program. Every 
<variable> has an associated type that determines the values that 
may be assigned. Another characteristic of a <variable> is its 
“access.” This refers to the method by which it is identified 
When its value is to he referenced or changed. 


This section has three parts: VARIABLES BY ACCESS, VARIABLES BY 
TYPE, and UNDEFINED VARIABLES. Variables of specific types, such 
as <array variable>s and «Boolean variable>os, are described in 
the Variables by Type portion of this section. 


VARIABLES BY ACCESS 


The access characteristic iS baSically independent of the type of 
the variable. In general, the access characteristic depends on 
whether or not the variable iS a component of a structured 
Variable and, if so, on the type of the structured variable of 
Which it is a Component. For the variables described in the 
following paragraphs (entire, indexed, dynamic, and buffer 
Variables, and field designators), the possible access 
Characteristics are defined. 


<variable> syntax: 


----+-- <eantire variable> ae shasianieniententententententententanianienientententantentetenhedeteateatedeaneiebiaraetasheanateantanteal 
| 
ie <indexed variable» aa 
aa <field designator> --+ 
ce <dynamic variable» aa 
poe <buffer variable> ie 


Entire Variables 

An <entire variable> is a «variable identifier> that was declared 
in a <variable identifier ltist> in a group of 

«variable declarations> or was defined as a formal parameter. An 
<entire variable> can be accessed simply by its name. 

<entire variable> syntax: 


---- <variable identifier> -~----------------------------------------- 
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Example: 


var x : real; 
str : packed array [1..5] of char; 


X and str are <entire variableos; str[{i], str[{e], str[3], 
str[(4], and str[5] are not <entire variableos. 

Indexed Variables 

An <indexed variable> denotes a variable that is a component of 
an array. In order to access an <indexed array variable», the 
<array variable> of which it iS a Component must be identified 
and the location of the variable within that array must be 
specified by providing an <index expression> for each dimension 
of the array. The value of each <index expression> must he 
assignment compatible with the <index type> of the array 
dimension it specifies. 

<indexed variable> syntax: 


---- <indexed array variable> 


<indexed array variable> syntax: 


<index expressian> syntax: 
---- <aordinal expression» 
Examples: 


var xX : array [char] of char; 
a: array [Boolean] of 1..10; 


a{false], x[’a’], and x[°4’] are 
<indexed variables. 


Field Designators 


A <field designator> is a <variable> that denotes a 

<field identifier> in a <record variable». The «record variable» 
of which the field is a component must be specified unless the 
<field identifier> appears in a «with statement» that designates 
the aprropriate <record variable>. 
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«field designator> syntax: 

mane to ee +-- <field identifier» -------------- 
+-- «record variable» -- . --+ 

It is an error to change the active <variant> of a record while a 

<field designator> within the currently active <variant> is being 

referenced in any of the following ways: 


(1) as the <record variahble> of a <with statement>, 


(2) as an actual variable parameter in an 
<actual parameter Llist>, or 


(3) as the left-hand side of an <assignment statement>. 
For additional information, refer to Actual Parameter Lists and 


Parameter Matching in section 3, and Assignment Statements and 
With Statements in section 4. 


Example: 
var ri, ré@ : record 
i: integer; 
b : Boolean; 
end: 


R1.i1, r1.b, r2@.i, and r2.b are <field designator>s. 


Dynamic Variables 


A <dynamic variable> is a <variable> accessed through a 

<pointer variable> declared as a pointer to the type of the 
<variable>. In order for a variable to be a <dynamic variable>, 
it must have been allocated dynamically, through the 

<new procedure>. 


<dynamic variable> syntax: 
—---- <pointer variable> -- Q@ ------------ 333 en ene 


An error occurs if the <pointer variable> is NIL, is undefined, 
contains a mark value, or references a dynamic variable that has 
been deallocated through the use of the <release procedure>. 

(See Mark Procedure and Release Procedure in section 6.} It is an 
error to “release” a dynamic variable while it is being 
referenced in any of the following ways: 


Form 1152048 7-3 File NOCUMENT/PASCAL 


Burroughs 


B 1000 PASCAL LANGUAGE MANUAL 


as the <record variable> of a «with statement>, 


as an actual variable parameter in an 
<actual parameter list>, or 


(3) as the left-hand side of an <assignment statement». 


Refer to Actual Parameter Lists and Parameter Matching in section 
3, Assignment Statements and With Statements in section 4, and 
Dynamic Altocation Procedures in section 6. 


Example: 


type ptr @node; 
node record 
name : packed array [1..20] of char; 
next : ptr; 
end; 
Var pt, pe : ptr; 
person : node; 
begin 
new(p1); 
pi@.name : “Robert Smith’; 
pi@.next : nil; 
person : 1@; 
end, 


P1 is a pointer to a dynamically allocated record of type node. 


P1@ is a record of type node and is assignment compatible with 
person. 


Bufffer Variables 


A <buffer variable> is automatically associated with each 
declared <file variable> and <textfile variable>. The 

«buffer variable> for a file or textfile is the means by which 
the file component associated with the current file position can 
be examined or modified. The type of the <buffer variable> is 
the <component type> of the file. For textfiles, the 

<buffer variables is of type char. 


<buffer variable> syntax: 


file variable» 


It is an error to alter the position of a file while the buffer 
variable is in use in one of the following ways: 
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{1) As the <record variable> of a <with 


MANUAL 


statement>, 


(2) as an actual variable parameter in an 


<actual parameter tist>, or 


{3) as the left-hand side of an <assignment statement». 


Refer to Actual Parameter Lists and Parameter Matching in Section 
3, and Assignment Statements and With Statements in section 4 for 


additional information. 


Example: 
var myfile : file of integer; 
inx : integer; 
begin 


rewrite(myfile); 

myfile@ := 3; 

put(myfile); 

reset(myfile); 

inx := myfileQ@; 

end; 
The type of <buffer variable> myfile@ is 
component type of the file. Therefore, i 
may be used as a variable of type integer 

VARIABLES BY TYPE 


Following are definitions of the variable 


Array Variable 


A <variable> declared of an <array type>. 


Boolean Variable 


A <variable> declared of the <Boolean typ 
type> whose host type is the <Boolean typ 


Char Variable 


A <variable> declared of the <char type> 
whose host type is the <char type>. 
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Enumerated Variable 


A <variable> declared of an <enumerated tynpe> or of a 
<subrange type> whose host type iS an <enuUmerated type>. 


File Variable 


An <entire variahble> declared of a <file type>. 


Integer Variable 


A <variable> declared of the <integer type> or of a 
<subrange type> whose host type is the <integer type>. 


Pointer Variable 


A <variable> declared of a <pointer type>. 


Real Variable 


A <variable> declared the <real type. 


Record Variable 


A <variable> declared a <record type>. 


Set Variable 


A <variable> declared a <set type>. 


String Variable 


A <variable> declared a <string type>. 


Textfile Variable 


An <entire variable» of the <textfile type. 


UNDEFINED VARIABLES 


An undefined variable is a variable whose value is invalid for 
some reason and therefore must not be examined. For example, 
when a block is entered at run time, all variables declared 
within that block are allocated as undefined variables. The use 
of any undefined variable in an expression i8 an error. 
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An undefined variable becomes defined when it iS assigned a valid 
value, for example, when it appears as the left-hand side of an 
<assignment statement> or as an actual variable parameter to a 
procedure or function that will assign it a value (such as the 
read procedure). 


Example: 
Var i : integer; 
} : integer; 
begin 
}. Sas { ERROR -- the value of i is undefined. } 
end; 
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SECTION 8 
BASIC COMPONENTS 


The basic components defined in this section are syntactic items 
that appear in the syntax diagrams in previous sections of the 
manual. These components are both simple and widely distributed 
throught the text. For this reason, they are not explained in 
place in the text but are explained oncein this section. The 
components include characters, identifiers, and numbers. 


Section 9, Interpretation of Program Text, describes a different 
set of basic components -- those that relate to the 
representation of the program and the compiler’s interpretation 
af it. Those items include reserved words, comments, 
context-sensitive identifiers, and special symbols {and their 
natatiaonal synonyms, if any). 


A special convention for the railroad syntax notation is used in 
this section. The basic components described here must not 
contain embedded blanks, comments, or record boundaries, even 
though the standard interpretation of railroad diagrams permits 
those token separators hetween any two distinct items in a 
diagram. Of course, blanks are allowed as <character>s within a 
«character string>, but they are significant in that context and 
are not treated as token separators. 


CHARACTERS AND CHARACTER STRINGS 


A <character string> represents a constant of the <string type>, 
and a <character lLiteral> represents a constant of the 

<thar type. A single apostrophe (°) character contained within 
a <tharacter string> aor <character Literal» is represented by two 
successive apostrophes. For example, °’’‘A’’’ is a 

<character string> containing the three characters ‘A’ 
(apostrophe, A, apostrophe). A <character string> that contains 
no values (°’) is a null string. 


<character string> syntax: 


Form 1152048 Fite DOCUMENT/PASCAL 


Burroughs 


B 1000 PASCAL LANGUAGE MANUAL 


<character Literal» syntax: 


s 


---- --+-- <nmon-apostrophe character> --+-- 4% ------- ene eee 


<non-apostrophe character> definition: 
Any <character> except the apostrophe (7°). 
<Character> definition: 
Any one of the characters in the standard character set. The 
standard character set is EBCDIC. 
IDENTIFIERS 


Identifiers may be of any length greater than O, subject to the 
canstraint that an identifier may not be split across source 


records. All: characters, including underscores, are significant 
in distinguishing identifiers. An <identifier> must not have the 
same spelling as a <reserved word>. (Refer to section 9, 


Interpretation of Program Text.) 


Allowing underscores in identifiers is a Burroughs extension to 
ANSI Pascal. 


<identifier> syntax: 


Sa al ema + 
| | 
---- <letter> --+-~+--------~+----- +--+ --- 2 rrr nn ee 
! ! 
+-- <digit> ---+ 
! se 
+-- <letter> -—-+ 
I ! 
t-- 0 =H + 


<letter> definition: 

Any one of the tetters A through Z or a through z. The 
lower-case characters {a through z) are synonymous with the 
upper-case characters (A through Z). 

<digit> definition: 


Any one of the decimal numbers O through 9. 
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Examples: 


Index MESSAGE COUNT item 3 { Three valid identifiers } 
BEGIN { INVALTD -- reserved word } 

1776 { INVALID -- doesn’t start with a tetter } 

We form { INVALID -- embedded blanks not allowed } 


NUMBERS 


A <number> iS an integer or real value optionally preceded by a 
sign. If no sign is specified, + is assumed. Numbers are 
symmetrical around 2era:; that is, any magnitude that can be 
represented as a positive value can also he represented as a 
negative value, and vice versa. 


The type of a <number> is determined by its format. A simple 
string of one or more digits is an <unsSigned integer>. The 
largest <unsigned nteger> can be referred to by the predefined 
<integer constant identifier> maxint. 

A number that includes a fractional part or an <exponent parts is 
an <unsigned real> number. Up to seven significant digits of 
precision are maintained. 

In the <exponent part, the letter E— introduces a decimal 
exponent. {E has the meaning “times 10 to the power of".j The 
exponent can range from -47 to +68. The routines that print real 
numbers print a maximum of six significant digits. This is done 
so that the last digit can be guaranteed to be accurate. 


<number> syntax: 


<unsigned number> syntax: 
<unsigned integer> 
<unsigned real» 


<unsigned integer> syntax: 
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<unsigned real> syntax: 


+ €--- + +¢------ + 
! ! ! ! 
m----+-- <digit> --+--+-- . --+-- <digit> --+----------+-----+------ S ostentation 
! { ! 
H +-- <exXponent part> --+ 
! | 
+-- <exponent part>—------------ 9-H eee eee + 
<Bxponent part> syntax: 
+ €-- + 
! | 
----+-- E --+--+--------- +--+4+----/3\---- <digit>» --+-~----------~------ 
| ! ! ' 
t-- Bom t tee FO Ot 
! t 
+-- -  -—+ 
Examples: 
123 -1000 +2 0 { integers } 
0.0 ~23.45 24567 .4e-20 9E15 { reals } 


FILE ATTRIBUTES AND MNEMONIC VALUES 


File attributes and values are system-defined identifiers 
describing characteristics of files. 


Certain file attributes either may require or allow parameters in 
order to further qualify the property of the file that is to be 
modified or queried. In order to access such attributes, an 
<attribute paramente tist> may be used in the 

<setattribute procedure>. If an <attribute parameter list> is 
used, it must immediatety follow the name of the attribute to be 
accessed. 


Attributes: 


<Boolean-valued file attribute» 
<event-valued file attribute» 
<integer-valued file attribute> 
<mnemonic-valued file attribute> 
<string-valued file attribute> 
<real-valued file attribute> 
<mnemonic value» 
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<attribute parameter List>» syntax: 


---- ( <integer expression» 


Example: 


type t = packed array [1..80] of char; 
var f : file of t, 
1 : integer: 
hegin 
; ae — a (a 
setattribute(f, TITLE, “TAPE1’]); 
end. 
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SECTION 9 
INTERPRETATION OF PROGRAM TEXT 


The Pascal program to be compiled is presented to the compiler as 
one or more files in a particular format. The merging of 
multiple files, and the files themselves, are described in 
appendix A. This section describes how the compiler interprets 
its input during the compilation process. 


For purposes of this discussion, the program input file can he 
considered a sequence of records (from whatever source) that the 
compiler reads during compilation. Each record includes the 
following fields: 


Columns Contents 
1-72 <program text>» and <compiler control record»>s 
73-80 sequence number (aptional) 
81-90 mark information (optional } 


Records containing a dollar sign ($) in column 1 are 

<compiler control record>s, which are not part of the Pascal 
program; they are described in appendix A. Records that do not 
contain a dollar sign ($) in column 1 are assumed to contain 
<program text>, that 18, the Pascal program to be compiled. 
Optionally, there can be sequence information in columns 73-80 
(refer to the SEQUENCE compiler control option) and mark 
information in columns 81-90. These fields are not discussed 
further here. 


PROGRAM TEXT 
The Pascal <program text> can be considered a continuous stream 
of <tokenos, all of which may be, and some of which must he, 


separated by <token Separators. 


«program text» syntax: 


+<-- <token sefarator> ----- + 

! { 

+ (---------- - - = + + 

! ! 
mmo nt-- <token> -------------H--- hr rr re ne cnn 
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TOKEN 
A taken is a sequence af characters in the program text that the 
compiler recognizes as a syntactic unit. Every pair of tokens 
must be separated by a <token separator> unless one token in the 
pair is a ¢special token». : 
<token> syntax: 
reserved word> 


<predefined identifiers 


<context-sensitive identifier> —-+ 


<identifier> 
<number> 

<character string> 
<character Literal» 


<special token» 


RESERVED WORD 


<Reserved word>s are Language keywords that cannot be redefined 
by the programmer. In general, these are words the compiler uses 
to recognize declarations, statements, and operators. 


<reserved word> list: 


AND DIV FUNCTION NIL PROGRAM UNTIL 
ARRAY DOG GOTO NOT RECORD VAR 
BEGIN DOWNTO IF OF REPEAT WHILE 
CAND ELSE IN OR SET WITH 
CASE END LABEL OTHERWISE THEN 
CONST FILE LIBRARY PACKED TO 

COR FOR MOD PROCEDURE TYPE 


PREDEFINED IDENTIFIER 


<Predefined identifiero>s are <identifier>s that have a predefined 
meaning in Pascal. As with user-defined <identifieros, 
«predefined identifier>s may be redefined, but the former 
definition becomes unavailable within the scope of the 
redefinition. 
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<predefined identifier> List 


abort exp Output setattribute 
abs false page sin 
accept get pred sqr 
arctan input put Sqrt 
Boolean integer read SUCC 
char Length readin tan 

chr : Ln real text 
close log release time 
cas mark reset true 
date maxint rewrite trunc 
display new round write 
ecf odd runtime writeln 
eoln ord seek 


TOKEN SEPARATOR 


<Taoken Separator>s are required as delimiters for alphanumeric 
tokens, to Separate tokens so that the compiler will interpret 
them properly, However, this function is incidental for 
<comment>s; their purpose is to allow the programmer to 
interleave descriptive text with the program text. 


<token separator> syntax: 


----t+-- <blank> ----------- ae ae eae SS a Se eee eae 
! | 
+-- <comment»---------- + 
! i 
+-- «record boundry> --+ 


BLANK 


Blanks can be used freely throughout the program text to improve 
readability and to separate tokens that must be separated so that 
the compiter witl interpret them property. 


<blank> definition: 


One or more blank characters. 


COMMENT : 
Comments are used to include documentation in a program. A 
<comment> may appear anywhere that a <blank> can appear; a 
<comment> may not appear in a <character string> or in another 
<comment>. Comments may contain any <character>s except the 
delimiting characters } and *). 
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Compiler control records that appear hHetween the record 
containing the beginning of a comment and the record containing 
the end of that comment are processed as normal compiler control 
records; they are not treated as part of the comment. 


<comment> syntax: 


4 {Hae ee + 
! ! 
----t-- { ----+--+-- <character> --+-- }  --+-~------------~-~---------- 
| i ! ! 
+-- (* --+ +-- *) --+ 


Examples 

{ This iS a comment. } 

(* This comment uses the two-character synonyms for braces. *) 

RECORD BOUNDARY 

The <record boundary> acts as an implicit token sg@parator. Thus, 
a token cannot be split at the column 72 boundary of one record 
and then be continued beginning in column 1 of the next record. 
The compiler interprets a split item as two separate items. 


<record boundary> definition: 


A theoretical boundary between column 72 af one record and column 
1 of the next record. 2 
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APPENDIX A 
COMPILING, EXECUTING, AND ANALYZING A PASCAL PROGRAM 


The input file to the B 1000 Pascal compiler is a standard data 
file created by any of the various editors. Only the first 72 
characters of each record are significant. Sequence numbers may 
appear in positions 73 through 80. These are not used by the 
compiler but are printed on the listing. Any patch information 
that may be present in columns 81-90 also appears on the Listing. 


The Pascal code may be entered in free format, but the general 
rutes for formatting, as illustrated in any Pascal textbook, 
should be followed to create readable Source programs. 


COMPILER OPTIONS 


Certain aspects of the compilation of a Pascal program may be 
controlled by directives to the compiler in the form of compiler 
control images ({CCIs}. 


The CCI enables a user to control options that are provided in 
the Pascal compiler. Each option falls into one of the following 
six categories: : 


Source language inputs 

Source Language output 
Optianal compilation mechanism 
Printed gutputs 

Compiler diagnostic messages 
Compiler debugging 


A CCI contains compiler control statements comprised af options 


or groups of options and any associated parameters. CCIs are 
totally distinct from the Pascat language, although they are 
typically interspersed with program source tines. CCI syntax 


differs from Pascal source syntax. Also, the following 
conventions differ between Pascal source text and CCI text. 


1. CCIs may not contain comments. 


2. Only upper-case letters may be used in CCIs, except within 
character strings. 


3. Character strings (for example, in file titles) are 
delimited by double quotation marks (")}, not apostrophes 
(°). 
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Because a CCI is not part af the Pascal language, a Pascal 
comment cannot occlude a CCI. Any source image with a dollar 
sign ($) in column 1 is processed as a CCI by the Pascal 
compiler, even if a Pascal comment begins before and ends after 


the CCI. 
CCI Syntax Diagrams 
The syntax diagrams for CCIs are shown mext. Options that are 
allowed within a Pascal source are listed in the paragraphs that 
follow under the headings Boolean Options, Value Options, and 
Immediate Options. Except as noted, the syntax and semantics of 
these options are as specified by the CCI Standard. 
NOTE 

The CCI Standard is a Burroughs document. 

The full title is Burroughs Corporation CSG 

Standard for Compiler Control Images. 


CCI Syntax: 


<Boalean-option> 
<value-opntion> 


<immediate-aption> 


<Boolean-option-setting> 
<value-option> 


<immediate-option>s 


ul HESE Deel ee <Boolean-option> ee (eee ene 
! ! 


(32 Poe ees 
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xX: 
Boolean option identifier» —--------------—------ 


defined Boolean options described below> ---! 


eB aptions described below> -------—--~------------ 


tax: 


-—----- <one of the immediate options described below> ~-~~------~------ 


<Boolean—-option—-setting> syntax: 


---- <Boolean+option> 


!--~ = -- <Boolean-option-expression> ----! 


<Boolean-option-expression> syntax: 


------ <aoptiaon-term> —- 


; 4 1 4 
f—--- OR -- <option-term> ----! 


<option-term> syntax: 
------ <aption—-factor>» --~----------- nn nn + + + + 
| ere Pa ee we es 
fot ! 
!---- AND -- <option-factor> ----! 
<option-factor> syntax: 
meaty ie ( -- <Boolean-option-expression> -- ) oe -------- 
! ----- NOT -- <option-—factor>» ------------- | 
Petes <Boolean-option» ------------------- | 
! eae | ee ee eee ! 
aoe PAUSE: phat te ei | 
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NOTE 


$ must be in column 1 or $$ in columns 1 and 
2 of a CCI. The listing of a CCI with $$ is 
controlled by LIST and LISTINCL, not by 
LISTDOLLAR. User options are implicity 
declared by their first use, which may not be 
in a Boolean-option-expression. The usual 
precedence of Boolean operators (NOT, ANDO, 
OR) is used. 


Boolean Options 


The following Boolean options are defined in the CCI Standard 


ANSI 
Default = FALSE. The ANSI option causes any extensions ta 
the ANSI Pascal Reference Standard to he treated as errors. 
Enabling this option currently has no effect. 


CODE 


Default = FALSE. The CODE option causes the compiler toa 
produce a listing of the object code produced by the 
campilation process. 


LINEINFO 
Default = FALSE. The LINEINFO option causes the compiler ta 


generate operators to determine the source tine number in 
case of abnormal termination. If the option is not enabled, 


the Line number of the beginning of the active procedure is 
determined instead. 


LIST 
Default = TRUE. The LIST option causes the compiler to 


include in the Listing the source derived from the CARD 
file, 


LISTDOLLAR 
Default = FALSE. The LISTDOLLAR option causes the compiler 
to include in the listing all CCIs (single $) encountered 
during the compilation. LIST must also be TRUE. 


LISTINCL 
Default = FALSE. The LISTINCL option causes the compiler to 
include in the listing that part of the source which was 
accepted for compilation as a result of the enabling of the 
INCLUDE option. LIST must atso be TRUE. 


MAP 
Default = FALSE. The function normally associated with this 
option is to produce an output listing with information 
cross referencing Line numbers to object code addresses. 
However, this function is not needed because the Pascal 
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compiler error message and the analyzer program output 
reference source tine numbers rather than code addresses. 
The MAP option in this compiler is actually equivalent tao 
the CODE option. 


NOBOUNDS 
Default = FALSE. The NOBOUNDS option causes the compiler to 
forego generating operators to check for subrange variables 
going out of range assignments. 


NOTAGFIELD 
Default = FALSE. VARIANT causes the compiler to forego 
generating operators to check tag values on accesses ta 
fields of tagged record variants. 


OMIT 
Default = FALSE. The OMIT option causes all Source language 
images to be ignored for the purpose of compilation until it 
is disabled. Any source language images encountered while 
this option is enabled are processed in the normal manner. 
A taower-case letter ao is printed on the listing just before 
the sequence number field for all records that are omitted. 


XREF 
Default = FALSE. The XREF option produces a listing of the 
Line number where each identifier is referenced. The XREF 


Option may be SET and RESET to cross reference various 
portions of a program. 


NOTE 


The cross reference option currently uses a 
memory sort. If a program with a large 
number of identifiers is being cross 
referenced, then the compile wilt require 
more memory than when cross referencing is 
not being done. The code file is closed 
before the cross reference is started so that 
the code file is saved even if the cross 
reference routines run out of memory. 


Value Options 


The following value options are defined in the CCI Standard. 


ERRORLIMIT 
Default value = 100. Causes compilation to terminate when 
the number of errors detected by the compiler equals or 
exceeds the integer value specified. 
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ERRORLIMIT Syntax: 


-~--- ERRORLIMIT 


{--- <integer>---! 


STRINGS 
Default = EBCDIC. Input to the compiler is assumed to be in 
EBCD IC. If this option is set to ASCII, all character and 
string literals generated to the code file are translated 
from EBCDIC to ASCII. No translation occurs with the option 
set to EBCDIC. 


STRINGS Syntax: 
-~--- STRINGS EBCOIC 


ier ROOT oes 


Immediate Options 
The following immediate options are defined in the CCI Standard. 


CLEAR 
This option causes the compiler to disable (set false) the 
following Boolean options: ANSI, CODE, LIST, LISTDOLLAR, 
LISTINCL, OMIT, XREF. 


PAGE 
This option causes the compiler to eject a page on the 
output Listing if the appropriate tist options are set. 


INCLUDE 
This option causes the compiler to suspend reading input 
from the CARD file and to begin reading input from the file 
specified by the parameter. An INCLUDE CCI may not appear 
in the included file. The file-title is specified using the 
ON syntax; that is, Y/Z ON X means file X/Z on pack X. Na 
other option may follow the INCLUDE on the same input image. 
If file-title has a quotation mark ("Jj within it, it must be 
represented by two quotation marks {""). A lower-case 
letter i is printed on the listing just before the sequence 
number field for all records that are included. 


INCLUDE Syntax: 


---- INCLUDE --- " --- <file-title>» -- 
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COMPILING AND EXECUTING A PASCAL PROGRAM 


The Pascal compiler, PASCAL, is itself a Pascal program. It has 
three external files: 


1. CARD, the proyram source text, modified to be DISK. 
os LINE, the program Listing, modified to PRINTER BACKUP. 
3. CODE, the B 1000 code file. 


The compiler is run by using the MCP COMPILE command, usually 
With file statements to name its external files and possibly a 
static memory (MS) specification for a large compilation. 
Standard memory size is 500,000 bits. The LIBRARY and SYNTAX 
options of the COMPILE command both have the same effect of 
compiling to LIBRARY. 


The compiler automatically segments the object code. A code 
segment is filled with at least 1500 bytes of code. At the end 
of the procedure in which the code segment was filled to 1500 
bytes, a segment is Started for the next procedure. Procedures 
are never broken across segments, but several procedures may be 
placed into one segment. 


The file CODE is saved unless the program being compiled has 
syntax errors. The saved file is locked into the directory with 
the name that was assigned in the COMPILE command 


Example: 


COMPILE .PROG WITH PASCAL TO LIBRARY; 
FILE CARD NAME = SOURCE/PROGC; 
FILE LINE NAME = LIST/PROG USER. BACKUP. NAME ; 


Compile-Time Errors 


Each error detected at compile time is printed on the listing 
following the'line in error, with a special character that points 
to the token that was being scanned when the error was detected. 
In some instances, the symbol being pointed to follows the actual 
error point, because the compiler parsed ahead before the error 
was evident to it. 


Run-Time Errors 


Errors detected at run time are reported by means of the MCP DS 
OR DP message. A Standard run-time error message contains a 
segment number and displacement, usually of the program’s next 
instruction pointer. In the case of Pascal, however, the segment 
number is always zero and the displacement value is the source 
line number at which the program failed. 
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Example: 


TEST = 1631 -- VALUE OUT OF RANGE: S=0, D=13 (@000@,@0000D@); DS OR DP 


In this example, TEST =1631 is the job name and number supplied 
by the MCP, and D=13 shows that the error occurred on line 13 of 
the source listing. 


Some standard routines such as the routine to read and write real 
numbers are contained in a library file (PASCAL/LIBRARY). When a 
program uses any of the routines, the library is bound with the 
code of the program. If an error occurs in a library routine, 
the Line number of the error is in the library rather than in the 
invoking pragram. The best way to determine the program lina 
from which the Library routine was called is to run the 
PASCAL/ANALYZER program on a dump af the program. The dump 
analysis shows the appropriate line. The PASCAL/ANALYZER program 
is described later in this appendix. 


A run-time error may occur incorrectly when a program is close to 
running out of memory. If an error seems questionable, try 
running the program again with more memory. 


Following is a list of all the run-time errors with notes on 
possible causes. 


INDEX OUT OF RANGE 
The value of the expression used to index an array is 
gutside the bounds of the array. 


VALUE OUT OF RANGE 
The value of the expression is outside the range of the 
variable to which the expression is being assigned. 


INTEGER OVERFLOW 
The value the expression is greater that maxint or tess than 
—-maxint. 


REAL OVERFLOW 
The exponent part of the real-valued expression is greater 
than the maximum exponent for real numbers. 


INV PTR REFERENCE 
A pointer which was pointing above the current top of the 
heap was dereferenced. The item that the pointer is 
pointing to has already been released. 


DIVIDE BY ZERO 
A division or madulo by zero was attempted. 
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STACK LIMIT 
The program has run out of memory while trying to allocate 
space for local variables. Run the program again with more 
memory using the MCP MS command. 


HEAP LIMIT 
The program has run out of memory while trying to allocate 
space for a dynamic variable. Run the program again with 
more memory using the MCP MS command. 


SET OUT OF RANGE 
A member of the set expression is outside the range of the 
set to which it is being assigned. 


INVALID OPCODE 
The interpreter attempted to execute an invalid operator. 


INV STD ROUTINE 
The compiler generated faulty code which resulted in an 
attempt tao call an invalid standard routine. 


VARIANT ERROR 
A field of a variant record was accessed and the value of 
the tag field does mot correspond to the variant part 
containing this figsld. 


NIL POINTER ERROR 
A pointer with the value of NIL was dereferenced. 


INVALID CASE 
A CASE statement was executed but the value of the case 
selector does not correspond to any case tabel and the case 
statement has no OTHERWISE clause. 


FILE AT EOF 
A file operation was attempted but the end of the file was 
encountered. 


PROGRAM ABORT 
The program was terminated by calling the ABORT procedure. 


TEXT BUF OVERFLOW 
Too many WRITE operations without a WRITELN procedure to 
this textfile have been done. Either insert a WRITELN 
procedure or increase the size of the buffer associated with 
this textfile using the file attribute specification in the 
program heading. 


FILE NOT OPEN 
A file operation was attempted on an unopen file. 
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UNDEFINED POINTER 
A pointer which has not been assigned any value has been 
dereferenced. 


FILE NOT AT EOF 
A file operation was attempted but the file was not at end 
of file. 


INVALID CHAR READ 
An invalid character was encountered during an attempt to 
read an integer from a textfile. 


FILE NOT CLOSED 
A file operation was attempted which required the file to be 
closed, but it is open. 


USING THE PASCAL/ANALYZER PROGRAM 


When a run-time error occurs, the user has the option of getting 
a dump file of the current state of the program. 


The standard analyzer program (SYSTEM/IDA) can be used to analyze 
dumps of Pascal programs, but it is not based on the internal 
structure of the Pascal virtual machine and, thus, produces a 
very general analysis. It is invoked with the MCP PM command, 
with switch 1 set to 1, and analyzes standard program components 
such as the run structure nucleus and file information blocks. 
Values of variables and the nesting of procedures are not shown. 


The PASCAL/ANALYZER program is written specifically to analyze 
dumps of Pascal programs and is based on the Pascal run-time 
system. It contains two external files: 

'bu DUMPFILE, the input dump file created by the MCP. 

'hu LINE, the output Listing file. 


The PASCAL/ANALYZER program gives a detailed analysis of the 
state of the program at the point at which the error occurred. 


The output is organized as follows: 


The program name and date and the name of the run—-time error 
appear at the top of the printout. 


The values of all of the scratchpad registers are next. 


Information for each file that was declared in the program 
is given next. 
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Analysis of the stack appears next. Each activation record, 
beginning with the most recent one, is analyzed. The 
analysis of each activation record includes the tacal 
Variable, stack temporaries, and parameters. The name and 
current value of each variable is included. 


At the end, the contents of the heap are printed in 
hexadecimal. 


The PASCAL/ANALYZER program is executed as follaws: 


EX PASCAL/ANALYZER; 
FILE DUMPFILE NAME DUMPFILE/124; 
FILE LINE NAME PROG/DUMP USER.BACKUP.NAME 


USING THE SYSTEM/IDA PROGRAM 


The SYSTEM/IDA program (the standard analyzer) is executed as 
follows: 


PM 124; SW 1= 1 
DUMPFILE/124 is removed when the analysis is done. To retain the 
dump, fite invoke the SYSTEM/IDA program with the following 


command: 


PM 124 SAVE; SW 1 = 1 


Form 1152048 A-11 Fite DOCUMENT/PASCAL 


Burroughs 


B 1000 PASCAL LANGUAGE MANUAL 


APPENDIX B 
RAILROAD DIAGRAMS 


Railroad diagrams graphically represent the syntax of software 
commands. 


The railroad diagrams are traversed left to right or in the 
direction of the arrowhead. Adherence to the Limits illustrated 
by bridges produces a syntactically valid statement. 
Continuation from one Line of a diagram to another is represented 
by a right arrow (!raj appearing at the end of the current tine 
and the beginning of the next line. The complete syntax diagram 
is terminated by a vertical bar (!vr). 


Items contained in broken brackets (<>} are syntactic variables 
that are defined in the manual or are information that the user 
is required to supply. 


Upper-case items not enclosed in broken brackets must appear 


Literally. Minimum abbreviations of upper-case items are 
underlined. 


Example: 


-- A RAILROAD DIAGRAM CONSISTS OF ----- Debit esheets 


'—~<loops>---------- ! 
| 


i-<optional itemso—! 
| | 
'-<reguired items>-! 


Se BND STS TERMINATED BY & VERTICNE- BAR. exetto teen ese eee ods 


The following syntactically valid statements can be constructed 
from the preceding diagram: 


A RAILROAD DIAGRAM CONSISTS OF <bridges> AND IS 
TERMINATED BY A VERTICAL BAR. 


A RAILROAD DIAGRAM CONSISTS OF <optional items» AND IS 
TERMINATED BY A VERTICAL BAR. 


A RAILROAD DIAGRAM CONSISTS OF <bridges>, <loops>» AND 
IS TERMINATED BY A VERTICAL BAR. 
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A RAILROAD DIAGRAM CONSISTS OF <optionai items>, 
«required items>, <optional items>, <bridges>, <loops» 
AND IS TERMINATED BY A VERTICAL BAR. 


REQUIRED ITEMS 


No alternate path through the railroad diagram exists for 
required items or required punctuation. 


Example: 
-- REQUIRED ITEM ----------------------------------- === === == = = 


OPTIONAL ITEMS 
Items shown as a vertical list indicate that the user must make a 


chaice of the items specified. An empty path through the list 
allows the optional item to be absent. 


Example: 


-- REQUIRED ITEM ~-—-~---------------------------------~+-------- 
!~<aptianal item-—-1>-! 
I i 


\-<optionat item-2>-! 
The following valid statements can be generated from the 
preceding diagram: 
REQUIRED ITEM 
REQUIRED ITEM <optional item-1> 


REQUIRED ITEM <optional item-2> 


LOOPS 


A loop i8 a recurrent path through a railroad diagram and has the 
following general format: 


I<—- <bridges> <return character>-! 
I | 
----<object of the tloop>----------~----~------------------------+-+-+-+-+- 
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<optional item-—1> 


'~<ontianal jitem—-2>-! 


The following statements can be constructed from the railroad 
diagram in the preceding example. 


<optional item-1> 
<optianal item—2> 
<optional item-1>.<optional item-1»> 
<optional item—-1>,<optional item-2> 
<optiaonal item-e>,<optional item-1> 
<aoptional item-2>,<optional item-2> 


A loop must be traversed in the direction of the arrowheads, and 
the Limits specified by bridges cannot be exceeded. 
BRIDGES 


A bridge illustrates the minimum or maximum number of times a 
path can be traversed in a railroad diagram. 


There are two forms of bridges: 


/n\ n is an integer that specifies the maximum number of times th 
path may be traversed. 


/n*®*\.n is an integer that specifies the maximum number of times t 
path may be traversed. The asterisk (*) indicates that the pa 
must be traversed at least once. 


Example: 


<optional 


(-/2*\-coptional item-2>-! 


The loop may be traversed a maximum of two times, and the path 
for <optional jitem-2> must be traversed at least once but no more 
than twice. 
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The following statements can be constructed from the preceding 
diagram: 


<optional item-1>,<optional item-e> 
<aptional item-e2>,<optional item-e>,<optional item-1> 


<optional item-2> 
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APPENDIX C 
EBCDIC AND ASCII CHARACTER SETS 


Tables C-1 and C-—e show the hexadecimal representation and 
ordinal number for each EBCDIC and ASCII character. Table C-~1 
sorted by EBCDIC ordinal number and represents the 
EBCDIC-to-ASCII translation that is performed when necessary. 
Table C-e2 is sorted by ASCII ordinal number and represents the 
ASCII-to-EBCDIC translation that is performed when necessary. 


NOTES 


The graphic representations for the EBCDIC 
hex codes 15, 5F, GA, 79, and AT are hardware 
dependent. Therefore, no EBCDIC graphic is 
shown in table C-1 for those codes. 


Similarly, the graphic representations for 
the ASCII hex codes 21, 5E, BC, and 7C are 
hardware dependent. Therefore, no ASCII 
graphic is shown in table C-2 for those 
codes. 
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EBCODIC 
Hex Decimal 
00 0 
01 4 
02 2 
03 3 
04 4 
05 5 
O06 6 
07 7 
08 8 
09 9 
OA 10 
OB 11 
oc 12 
OD 13 
OE 14 
OF 15 
10 16 
11 17 
12 18 
13 19 
14 20 
15 21 
16 22 
17 23 
18 24 
19 25 
1A 26 
1B 27 
1C 28 
1D 29 
1E 30 
1F 31 
20 32 
21 33 
22 34 
23 35 
24 36 
25 37 
26 38 
27 39 
28 40 
29 41 
2A 42 
2B 43 
2C 44 
2D 45 
2E 46 
oF 47 
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B 1000 Codes in EBCDIC Sequence 
AS CII  (EBCDIC Graphic) 
Hex Decimal Graphic Meaning 
00 0 NUL Null 
01 1 SOH Start of Heading 
0e 2 STX Start of Text 
03 3 ETX End of Text 
9C 156 
og 9 HT Horizontal Tabulation 
86 134 
7F 127 DEL Delete 
97 1514 
80 141 
BE 142 
OB 11 VT Vertical Tabulation 
oc 12 FF Form Feed 
oD 13 CR Carriage Return 
OE 14 SO Shift Out 
OF 15 Si Shift In 
10 16 DLE Data Link Escape 
11 17 DC1 Device Control 1 
12 18 DC2 Device Control 2 
13 19 DC3 Device Control 3 
9D 157 
85 133 
08 8 BS Backspace 
87 135 
18 24 CAN Cancel 
19 25 EM End of Medium 
92 146 
8F 143 
1C 28 FS File Separator 
1D 29 GS Group Separator 
1E 30 RS Record Separator 
1F 31 US Unit Separator 
80 128 
81 129 
82 130 
83 131 
84 132 
OA 10 LF Line Feed 
17 23 ETB End of Transmission Blac 
1B 27 ESC Escape 
88 136 
89 137 
BA 138 
8B 139 
8C 140 
05 5 ENQ Enquiry 
06 6 ACK Acknowledge 
07 7 BEL Bell 
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Table C-1. (continued) 


E BG Def AS C11 (EBCDIC Graphic) 


Synchronous Idle 


End of Transmission 


Device Control 4 
Negative Acknowledge 


Substitute 
Space 


Opening Bracket 
Period 

Lass Than 

Opening Parenthesis 
Plus 
Exclamation Point 
Ampersand 


Closing Bracket 
Dotlar Sign 
Asterisk 

Closing Parenthesis 
Semicolon 
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EB. BC 


we ee 


Hex Decimal 
60 96 
61 97 
62 98 
63 99 
64 100 
65 101 
66 102 
67 103 
68 104 
69 105 
6A 106 
6B 107 
6C 108 
6D 109 
6E 110 
BF 111 
70 112 
71 1183 
72 114 
73 115 
74 116 
75 117 
76 118 
77 119 
78 120 
79 121 
7A 12e 
7B 123 
7C 124 
7D 125 
7E 126 
7F 127 
80 128 
81 129 
Be 130 
83 131 
84 132 
85 133 
86 134 
87 135 
88 136 
89 137 
BA 138 
8B 139 
8C 140 
8D 141 
BE 142 
8F 143 
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Table C-1. (continued) 


AS CII _ {EBCDIC Graphic) 


Hex Decimal Graphic 
2D 45 - 
2F 47 / 
Be 178 
B3 179 
B4 180 
B5 181 
BE 182 
B7 183 
B8 184 
Bg 185 
7C 124 
2C 44 : 
25 37 % 
5F 95 
3E 62 > 
3F 63 ? 
BA 186 
BB 187 
BC 188 
BD 189 
BE 190 
BF 191 
co 192 
C1 193 
C2 194 
40 96 
3A 58 
23 35 # 
60 64 @ 
27 39 : 
3D 61 = 
22 34 . 
C3 195 
61 97 a 
62 98 b 
63 99 Cc 
64 100 d 
65 101 B 
66 102 f 
67 103 g 
68 104 h 
69 4105 i 
C4 196 
cs 197 
C6 198 
C7 199 
C8 200 
cg 201 

c-4 


Hyphen (Minus) 
Slant (Slash) 


Comma 

Percent 
Underscore 
Greater Than 
Question Mark 


Colon 

Number Sign 

Commercial At 
Apostrophe, Closing Quaot 
Equal Sign 

Quotation Marks 


Lower Case 
Lower Case 
Lower Case 
Lower Case 
Lower Case 
Lower Case 
Lower Case 
Lower Case 
Lower Case 


- TOmDWOnO OD 
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Table C-1. (continued) 


EBCODIC AS C II {(EBCDIC Graphic) 


Lower 
Lower 
Lower 
Lower 
Lower 
Lower 


nawpas3gc- Ke 
soup oasa 3g KUL. 


NS KM EE Corn 
NG <M ££ << Cru 


172 
173 
174 
175 
176 
sees 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 


126 
115 
116 
117 
118 
119 
120 
121 
122 
210 
211 
21e 
213 
214 
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Tabite C-1. (continued) 


EBCOIC AS CIMI_ ({(EBCDIC Graphic) 
Hex Decimal Hex Decimal Graphic Meaning 

CO 192 7B 123 { Opening Brace 
C1 193 41 65 A Upper Case A 
C2 194 42 66 B Upper Case B 
C3 195 43 67 C Upper Case C 
C4 196 44 68 D Upper Case D 
C5 197 45 69 E Upper Case E 
C6 198 46 70 F Upper Case F 
C7 199 47 71 G Upper Case G 
C8 200 48 72 H Upper Case H 
C3 201 49 73 I Upper Case I 
CA 20e E8 232 

CB 203 Eg 233 

CC 204 EA 234 

CD 205 EB 235 

CE 206 EC 236 

CF 207 ED 237 

DO 208 7D 125 } Closing Brace 
D1 209 4A 74 J Upper Case J 
De 210 4B 75 K Upper Case K 
D3 2114 4C 76 { Upper Case L 
D4 ele 4D 77 M Upper Case M 
D5 213 4E 78 N Upper Case N 
D6 214 4F 79 0 Upper Case O 
D7 215 50 80 P Upper Case P 
D8 216 51 81 QO Upper Case Q 
Dg 217 52 B82 R Upper Case AR 
DA 218 EE 238 

DB 219 EF 239 

DC 220 FO 240 

DD 221 F1 241 

DE 2e2e F2 242 

DF 223 F3 243 

EO 224 5C 92 \ Reverse Slant 
E1 225 SF 159 

E2 226 53 83 S Upper Case § 
E3 227 54 B84 T Upper Case T 
E4 228 55 85 U Upper Case U 
E5 229 56 86 V Upper Case V 
E6 230 57 87 W Upper Case W 
E? 231 58 88 X Upper Case X 
E8 232 59 89 Y Upper Case Y 
E9 233 5A 90 Z Upper Case 2 
EA 234 F4 244 

EB 235 F5 245 

EC 236 FE 246 

ED 237 F7 247 

EE 238 F8 248 

EF 239 F9 249 
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Table C-1. (continued) 


E 8G. D> 7 ce AS CI1IMI_ (EBCDIC Graphic) 


0 
1 
2 
3 
4 
5 
6 
7 
8 
9 
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Table C-2. 
AS CII 
Hex Decimal Hex 
oo 0 00 
01 1 01 
Oe 2 02 
03 3 03 
04 4 37 
05 5 2D 
O06 6 2E 
07 7 2F 
08 8 16 
09 9 05 
OA 10 25 
OB 11 OB 
Oc 12 OC 
OD 13 OD 
OE 14 OE 
OF 15 OF 
10 16 10 
11 17 11 
1e 18 12 
13 19 13 
14 20 3C 
15 21 3D 
16 ee 32 
17 23 26 
18 24 18 
19 25 19 
1A 26 3F 
1B 27 27 
1C 28 1C 
1D 29 1D 
1€ 30 iE 
1F 31 1F 
20 32 40 
21 33 4F 
Ze 34 7F 
23 35 7B 
24 36 58 
25 37 6C 
26 38 50 
27 39 7D 
28 40 4D 
2g 41 5D 
2A 42 5C 
2B 43 4E 
2c 44 6B 
2D 45 60 
ee 46 4B 
oF 47 61 
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B 1000 Codes 


EBCODIC 


in ASCII Sequence 


(ASCII Graphic) 


Burroughs 


Null 

Start af Heading 
Start of Text 

End of Text 

End of Transmission 
Enquiry 

Acknowledge 

Bell 

Backspace 
Horizontal Tabulation 
Line Feed 

Vertical Tabulation 
Form Feed 

Carriage Return 
Shift Out 

Shift In 

Data Link Escape 
Device Control 1 
Device Control 2 
Device Control 3 
Device Control 4 
Negative Acknowledge 
Synchronous Idle 
End of Transmission Bloc 
Cancel 

End of Medium 
Substitute 

Escape 

File Separator 
Group Separator 
Record Separator 
Unit Separator 
Space 


Quotation Marks 
Number Sign 

Dollar Sign 

Percent 

Ampersand 
Apostrophe, Singte Quote 
Opening Parenthesis 
Closing Parenthesis 
Asterisk 

Plus 

Comma 

Hyphen (Minus) 
Period 

Slant (Stash) 
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Table C-2. (continued) 
EBCOIC [ASCII Graphic) 


aman ODohdoOM Oo 


Semicolton 
Less Than 
Equals 
Greater Than 
Question Mark 
Commerciat At 
Upper Case 
Upper Case 
Upper Case 
Upper Case 
Upper Case 
Upper Case 
Upper Case 
Upper Case 
Upper Case 
Upper Case 
Upper Case 
Upper Case 
Upper Case 
Unper Case 
Upper Case 
Upper Case 
Upper Case 
Upper Case 
Upper Case 
Upper Case 
Upper Case 
Upper Case 
Upper Case 
Upper Case 
Upper Case 
Upper Case 
Opening Bracket 
Reverse Slant 
Closing Bracket 


N<KME<CCHMDVOVOS SCACHTOMMooOoY 


< 
> 
? 
@ 
A 
B 
C 
D 
E 
F 
G 
H 
I 
J 
K 
L 
M 
N 
0 
P 
Q 
R 
S 
T 
U 
V 
W 
x 
Y 
Z 
[ 
\ 
J 


Underscore 
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Tabke C-2@. (continued) 


ASCII EBCOIC (ASCII Graphic) 
Hex Decimal Hex Decimal Graphic Meaning 

60 96 79 121 

61 97 81 129 a Lower Case a 

62 98 82 130 b Lower Case b 

63 99 B83 131 c Lower Case c 

64 100 84 132 d Lower Case d 

65 101 85 133 e Lawer Case e 

66 102 86 134 f Lower Case f 

67 103 87 135 g Lower Case g 

68 104 88 136 h Lower Case h 

69 105 89 137 i Lower Case i 
' 6A 106 91 145 j Lower Case j 

6B 107 92 146 K Lower Case k 

6C 108 93 147 l Lower Case l 

6D 109 94 148 m Lower Case m 

GE 110 95 149 A Lower Case n 

GF 111 96 150 a Lower Case o 

70 112 97 151 p Lower Case p 

71 113 98 15¢e q Lower Case gq 

7e 114 99 153 r Lower Case r 

73 115 Ae 162 S Lower Case gs 

74 116 A3 163 t Lower Case ¢t 

75 117 A4 164 u Lower Case u 

76 118 AS 165 Vv Lower Case v 

77 118 A6 166 W Lower Case w 

78 120 A7 167 x Lower Case x 

79 121 A8 168 y Lower Case y 

7A jee AQ 169 2 Lower Case 2 

7B 123 Co 192 { Opening Brace 

7C 124 BA 106 

7D 125 DO 208 } Closing Brace 

7E 126 A1 161 

7F 127 07 d DEL Delete 

80 128 20 32 

81 129 21 33 

82 130 2e 34 

83 131 23 35 

84 132 24 36 

85 133 15 21 

86 134 O6 6 

87 135 17 23 

88 136 28 40 

89 137 29 41 

BA 138 2A 42 

8B 139 2B 43 

BC 140 2c 44 

8D 141 0g g 

BE 142 OA 10 

8F 143 13 27 
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Table C-2. (continued) 


EBCODIC {ASCII Graphic) 


163 
164 
165 
166 
167 
168 
169 
170 
174 
172 
ats 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
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AS CII 
He x Decimal 
co 192 
C1 193 
C2 194 
C3 195 
C4 196 
C5 197 
C6 198 
C7 199 
C8 200 
C3 201 
CA 202 
CB 203 
CC 204 
CO 205 
CE 206 
CF 207 
DO 208 
D1 208 
D2 210 
D3 214 
D4 21e 
D5 213 
D6 214 
D7 215 
D8 216 
Dg 217 
DA 218 
DB 219 
DC 220 
DD 221 
DE 222 
DF 223 
EO 224 
E14 225 
E2 226 
E3 227 
E4 228 
E5 229 
EG&G 230 
E7 231 
E8 232 
Eg 233 
EA 234 
EB 235 
EC 236 
ED 237 
EE 238 
EF 239 
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Table C-2. (continued) 


EBCOIC {ASCII Graphic) 


Hex Decimal Graphic Meaning 
76 118 
77 a 
78 120 
80 128 
BA 138 
8B 139 
8C 140 
8D 141 
BE 142 
8F 143 
90 144 
9A 154 
9B 155 
gC 156 
9D 157 
SE 158 
SF 159 
AO 160 
AA 170 
AB 171 
AC 172 
AD 173 
AE 174 
AF 175 
BO 176 
B1 177 
Be 178 
B3 179 
B4 180 
BS 181 
B6 182 
B7 183 
B8 184 
Bg 185 
BA 186 
BB 187 
BC 188 
BD 189 
BE 190 
BF 191 
CA 20e 
CB 203 
cc 204 
CD 205 
CE 206 
CF 207 
DA 218 
DB 219 
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Table C-2. (continued) 


EBCODIC {ASCII Graphic} 
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INDEX 


<«<Boolean-option> 


< 5-8 
«> 5-8 , 
<= 5-8, 


5-9, 5-1 


5-10 


<abort procedure> 


<abort procedure> syntax: 
<abs function> 
<abs function> syntax: 


<accept procedure> 
<accept procedure» 


<actual 


parameter 


<arctan functioaon> 


<arithmetic 
carithmetic 
<arithmetic 
<arithmetic 
<arithmetic 
<carithmetic 
<arithmetic 
<arithmetic 
<array type 
<array type> 


functi 
functi 


relati 
relati 
identi 


<array variable» 


<assignment statement> 
<assignment statement> syntax: 
<attribute parameter 


<attribute phrase> 


<base type> 


<blank> 


<hlank> definition: 
syntax: 


<pblock> 

<Boolean 
<Boolean 
<Boolean 


<Boolean 
<Boolean 
<Boolean 
«Boolean 
<Boolean 
<Boolean 
<Boolean 
<Boolean 


<Boolean-option—expression> A- 
<Boolean-option—-expression> synt 
<Boolean-aption-setting> 
<Boolean-option-setting> 


9-3 


constant 
constant»> 


expression»> 
6-23 
expression> syntax: 


, 5-9, 


operator> 
operator> 
primary» 
primary> 
type 
type> 
Variable> 
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expression> 
expressian> 


Operator> 


Operator> syntax: 


3-5, 


3-22 


5 
identifier> 3 
3-5, - 


A-3 
0 


6-35 
6-36 


6-382 


6-32 
6-35 
syntax: 
List» 
6-32 


6-36 
4-10, 5-4 


5-8, 
syntax: 
6-1, 6-35 

syntax: 
5-15 


5-15, 
5-1 


6-32, 


on> 
ons> 6-32 
5-15 
on> 5-8 

on> syntax: 5-8 

fier> 3-5, 3-8, 

3-5 
5-1, 


3-13 


7-2 
41 
4-2 
syntax: 
2-3 


List» 8-5 


syntax: 


9-3 

2-3 

identifier> 

3-2, 3-21, 
4-9, 4-11, 


5-5 
5-5 
syntax: 
5-5 
syntax: 


5-6 


3-6, 3 

5-6 

3 

ax. 
A-2 

syntax: 
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<Boolean-optian> A-e, A-3 
<Boolean-option> syntax: A-3 
<buffer variable» 7-1 

<buffer variable> syntax: 7-4 
<case constant» 3-21, 4-4 
«case index> 4-3 

<case index> syntax: 4-4 
«case List element» 4-3 

<case List element» syntax: 
«case statement» 4-1 

<Case statement> syntax: 

<char constant identifier> 
<char constant» 3-2, 3-21, 
<char expression» 5-1, 5-2 
<char expression> syntax: 

<char type identifier> 

<thar type> 3~5, 3-6, 

<char variable» 5-11, 
<character ltliteral> 3-3, 
<character lLiteral> syntax: 
<character string> 3-4, 9-2 
«character string> syntax: 
<Character> definition: 8-2 
<chr function» 6-27 

<chr funection> syntax: 6-27 
<close option» 6-13 

<close option> syntax: 6-13 
<close procedure» 6-2 

<close procedure> syntax: 6-13 
<comment> 9-3 

<camment> syntax: g-4 
<component typed 3-16 
<compound statement» 4-1 
<compound statement> syntax: 4-4 
<constant definitions» 3-1, 3-2 
<context-sensitive identifier> 9-2 
<control variable> 4-4 
<control variable> definition: 4-5 
<cos function> 6-32 

<cos function> syntax: 6-33 
<date procedure» 6-35 

<fdate procedure> syntax: 6-37 
<day> 6-37 

<day> syntax: 6-37 

«declared function> 5-4 
<declared function> syntax: 
<declared procedure> 4-10 
<declared procedure> syntax: 
<digit> 3~2, 8-2, 8-3, 8-4 
<digit> definition: 8-2 
<directive> 3-27, 3-29 
<display procedure> 6-35 
<display procedure> syntax: 
<domain type» 3-18 
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<dynamic 
<dynamic 
<dynamic 


allocation procedure» 6-1 
allocation procedure> syntax: 
variable> 7-1 
<dynamic variable> syntax: 
<element typed 3-14 
<entire variable» 7-1 
<entire variable> syntax: 7-1 
<enumerated constant» 3-16, 3-21, 3 
<enumerated expression> 5-1, 5-2, 5 
1 
3 


6-28 


7-3 


<enumerated expression> syntax: 
cenumerated type identifier> 
<enumerated type> 3-5, 3-6, 
<enumerated variable> 5-11 
<eaf functiaon> 6-2 

<eof function> syntax: 
<Baoln function> 6-2 
<eotn function> syntax: 
«exo function» 6-32 
<exp function> syntax: 
<exponent part» B-4 
<exponent part> syntax: 
<expression»> 3-32, 4-2, 
<expression> syntax: 5~1 

<external file identifier> syntax: 
«external file specification> syntax: 
<field designator> 7-1 
<field designator> syntax: 
<field identifier> 3-20, 
<field list» 3-20, 3-21 
<field type> 3-20 

<field width» 6-23 
<field width> syntax: 6-23 
«file handling function» 6-1 
<file handling function> syntax: 
<file handling procedure> 6-1 
<file handling procedure> syntax: 


6-15 
6-15 


6-33 


6-22 


2-2 
2-2 


7-3 


3-21, 7-3 


<file type identifier> 
<file type> 3-5, 3-6 
<file variable> 6-13, 
, 7-4 

<final value» 
<final value> 
<fixed part»> 3-20 
<for statement» 4-1 
«for statement> syntax: 
<formal parameter list» 
<forward> 3-27, 3-29 
<frac digits» 6-23 
<frac digits> syntax: 
«function declaration» 
<functiaon designator> 
<fFunction designator> 
«function identifier» 
<general function> 


4-4 
syntax: 
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syntax: 


6-1 


3-5, 3-8, 


6-15, 6-16, 6-17, 


4-5 


4-4 


3-27, 3-29 


6-23 
3-26 
5-6, 5-11, 


3) 
3-29, 4-2, 


IX-3 
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<general function> syntax: 6-35 

<general procedure> 6-1 

<general procedure> syntax: 6-35 

<get procedure» 6-2 

<get procedure> syntax: 6-15 

<goto statement» 4-1 

<gaoto statement> syntax: 4-6 

<hours> 6-39 

<hours> syntax: 6-39 

<identifier> 38-16, 3-20, 3-26, 3-27, 3-29, 9-2 

<identifier> syntax: 8-2 

<if statement» 4-1 

<if statement> syntax: 4-9 

<immediate-optian> A-2 

<immediate-option> syntax: A-3 

<index expression> 7-2 

<index expression> syntax: 7-2 

<index type> 3-14 

<indexed array variable> 7-2 

<indexed array variable> syntax: 7-2 

<indexed variable> 7-1 

<indexed variable> syntax: 7-2 

<initiat value» 4-4 

<initial value> syntax: 4-5 

<cinteger constant identifier» 

<integer constant> 3-2, 3-21, 

<integer expression» 5-1, 5S-é, 
, 6-24, 6-27, 6-38, 

<integer expression> syntax: 

<integer aperator> 5-12 

<integer operator> syntax: 

<integer primary» 5-1e, 

<integer primary> syntax: 

<integer type identifier> 

<integer type> 3-5, 3-6, 

<integer variable> 5-13, 

<label declarations» 3-1, 

<label> 3-2, 4-1, 4-6 

<letter> 8-2 

<letter> definition: 8-2 

<tn funetion> 6-32 

<ln function> syntax: 6-33 

«mark procedure» 6-28 

<mark procedure> syntax: 6-31 

<member designator> 5-16 

«member designator> syntax: 5-16 

<minutes> 6-39 

<cminutes> syntax: 6-39 

<month»> 6-37 

<month> syntax: 6-37 

«new array type» 3-13 

<new enumerated type> 3-16 

<new file type> 3-16 

«new pointer type> 3-17 
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<new procedure>d 6-28 

<new procedure> syntax: 6-31 

<new record type» 3-20 

<new set type>d 3-22 

«new subrange type> 3-23 

<non-apostrophe character» 8-1, 8-e 

<non-apostrophe character> definition: 8-2 

<«number> 8-2 

<number> syntax: B-3 

<odd function» 6-35 

<odd function> syntax: 6-38 

<aoption-factor> A-3 

<option-factor> syntax: A-3 

<option-term> A-3 

<option-term> syntax: A-3 

<ord function> 6-27 

<ord function> syntax 6-28 

<ordinal expressian> 4-4, 4-5, 5-10, 5-16, 6-28, 6-38 
6-39, 7-2 

<aordinal expression> syntax: 5-2 

<aordinal relation» 5-8 

<ardinal relation> syntax: 5-9 

<ordinal type identifier> 3-21 

<ordinal type» 3-14, 3-22 

<page procedure> 6-2 

<page procedure> syntax: 6-16 

«pointer expression> 5-1, 6-31 

<pointer expression> syntax: 5-14 

<pointer relation» 5-8. 5-9 

<pointer relation> syntax: 5-3 

«pointer type identifier> 3-5, 3-8, 3-17 

<pointer type» 3-5, 3-29 

<pointer variable» 5-14, 6-31, 7-3 

<pred function» 6-35 

<pred function> syntax: 6-38 

«predefined function> 5-4 

<predefined function> syntax: 6-1 

<predefined identifier» 9-2 

<predefined identifier> list 9-3 

<predefined procedure> 4-10 

<predefined procedure> syntax: 6-1 

<procedure and function declarations» 3-1 

<procedure declaration» 3-26 

<procedure identifier> 38-27, 4-10 

<procedure invocation statement» 4-1 

<procedure invocation statement> syntax: 4-11 

«program heading> syntax: 2-2 

<program identifier> syntax: 2-2 

<program parameters> syntax: 2-2 

<program text> syntax: 9-1 

<program> syntax: 2-2 

<put procedure> 6-2 

«put procedure> syntax: 6-16 

<read parameter» 6-17, 6-20 
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<read parameter syntax: 6-17 

<read procedure») 6-2 

<read procedure> syntax: 6-17 

<read textfile procedure» 6-2 

<read textfile procedures syntax: 6-17 
<readit(n praocedure> 6-2 

<readin procedure> syntax: 6-20 

«real constant identifier» 3-2, 3-4, 5-15 
<real constant» 3-2 

<real expression> 5-1, 6-23, 6-25, 6-33 
«real expression> syntax: 5-15 

<real primary> 5-15 

<real primary> syntax: 5-15 

«real type identifier> 3-5, 3-8, 3-18 
<real type> 3-5, 3-6 

«real variable» 5-15, 6-17 
«record boundary» 9-3 

<recaord boundary> definition: 9-4 
<record type identifier> 3-5, 3-8 
<record type> 3-5, 3-6 

<record variable» 4-12, 5-1, 7-3 
<rel op» 4-10, 5-8, 5-9 

<rel op> syntax: 5-8 
«relational expressian> 5-6 
<relational expression> syntax: 5-8 
<release procedure> 6-28 

<release procedure> syntax: 6-31 
<repeat statement» 4-1 

<repeat statement> syntax: 4-12 
<reserved word> 9-2 

<reserved word. List: 9-2 

<reset procedure» 6-2 

<reset pracedure> syntax: 6-21 
<result type 3-29 

«rewrite procedure> 6-2 

<rewrite procedure> syntax: 6-21 
<round function» 6-3e 

<round function> syntax: 6-33 
<runtime function> 6-35 

<runtime function> syntax: 6-38 
<seconds> 6-39 

<seconds> syntax: 6-39 

<seek procedure» 6-2 

<seek procedure> syntax: 

<set constructor» 5-16 

<set constructor> syntax: 

«set expression» 5-1, 

<set expression> syntax: 

<set operator» 5-16 

«set operator> syntax: 

«set primary> 5-16 

<set primary> syntax: 

<set relation» 5-8 

<set relation> syntax: 


, 3-20 
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<set type identifier> 3-5, 3-8, 3-22 
<set type> 38-5, 3-6 

<set variable» 5-16 

<simple type> 3-5, 3-29 

<sin function> 6-3e 

<sin funcetion> syntax: 6-34 

«special token> 9-2 

<sqr function» 6-32 

<sqr function> syntax: 6-34 

<sgqrt functions 6-3e 

<sqrt function> syntax: 6-34 
«Statement list» 4-1, 4-3, 4 
«Statement List» Syntax: 4-1 
«Statement part> syntax: 4-1 
<statement> 4-1, 4-4, 4-9, 4 
<statement> syntax: 4-1 
<string constant identifie 
«string constant» 38-2, 5 
<string expression> 4-10 
<string expression> syntax: 5-17 

«string relation» 5-8 

<string relation> syntax 4-10 

<String type> 3-13 

«string variable» 5-17. 6-36, 6-37 

«structured type> 3-5 

<subrange type identifier> 38-5, 3-8, 3-21, 3-23 
<subrange type> 3-5, 3-6, 3-7 


«succ function> 6-35 

<S8ucc functiaon> syntax: 6-39 
<tan function» 6-32 

<tan function» syntax: 6-34 


<ctextfile type identifier> 38-5, 3-8, 3-24 

<textfile type> 3-5, 3-6 

<textfile variable> 6-13, 6-15, 6-16, 6-17, 6-20, 6-21 
, 6-22, 6-27, 7-4 


<time procedure> 6-35 

<time procedure> syntax: 6-39 
<token separator» g-1 

<token separator> syntax: 9-3 
<token> 9-1 

<token> syntax: 9-2 

<trunc function> 6-32 

<trunc function> syntax: 6-35 


<type definitions» 3-1 

<type identifier> 3-31 

<type transfer function> 6-1 

<type transfer function> syntax: 6-27 
<type> 3-26 

<unsigned integer> 3-3, 5-13, 8-3 


<unsigned integer> syntax: 8-3 

<unsigned number» 8-3 

<unsigned number> syntax: 8-3 

<unsigned real» 38-4, 5-15, 8-3 

<unsigned real> syntax: 8-4 
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<value parameter type> 3-31 

<value parameter» 3-31 

<value-optian> A-2 

<value-aption> syntax: A-3 

<variable declarations» 3-1 

«variable identifier tist» 3-26 
<variable identifier» 3-26, 3-31, 7-1 
<variable parameter» 3-31 

<variable> 3-32, 4-2, 6-17, 6-37, 6-39 
<variable> syntax: 7-1 

<variant part> 3-20 

<variant selector> 3-20 

<variant»> 3-20 

<vlstring type identifiers 3-8 
<vlstring type> 3-6 

«wait procedure> 6-35 

«while statement» 4-1 

«while statements syntax: 

«with statement» 4-1 

«with statement syntax: 

«write parameter» 6-17, 

«write parameter> syntax: 

<write procedure> 6-2 

«write procedure> syntax: 6-22 

«write textfile procedure» 6-2 

<cwrite textfile procedure> syntax: 6-22 
<cwriteln procedure» 6-2 

<writeln procedure> syntax: 6-27 


<year> 6-37 
<y@ar> syntax: 6-37 


3-3, 3-4, 5-12, 5-13, 5-15, 5-16, 8-3, 8-4 


5-15 


(underscore) 


Abort 6-36 

Abort Procedure 6-36 
Abs 6-32 

ABS Function 6-32 
Accept 6-36 
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Accept Procedure 6-36 
Activation Records 2-9 

ACTUAL PARAMETER LISTS AND PARAMETER MATCHING 3-32 
AND 5-6, A-8 

ANSI A-4 

Arctan 6-32 

ARCTAN Function 6-32 
Arithmetic Functions 6--31 
Array Types 3-12 

Array Variable 7-5 

ARRAY ; 3-14 

Assignment Compatibility 3-10 
ASSIGNMENT STATEMENTS 4-2 


BASIC COMPONENTS 8-1 
BEGIN 4-1, 4-4 

BLANK 9-3 

Boolean 3-8, 3-14 
Boolean and Relational Expressions 5-5 
Boolean Expressions 5-5 
Boolean Optians A-4 
Boolean Types 3-14 
Boolean Variable 7-5 
BRIDGES B-3 

Buffer Variables 6-3 
Bufffer Variables 7-4 


CAND 5-6 

CASE 3-20, 4-3 

CASE STATEMENTS 4-3 

CCI Syntax Diagrams A-2 

Char 3-8, 3-15 

CHAR Expressions 5-11 

Char Variable 7-5 

Character Types 3-14 

CHARACTERS AND CHARACTER STRINGS 8-1 
Chr 6-27 

CHR Function 6-27 
CLEAR A-6 

Close 6-13 

Close Operation 6-8, 6-12 

Close Procedure 6-1 

CODE A-4 

COMMENT 9-3 

Compatible Types 3-9 

Compile-Time Errors A-7 

COMPILER OPTIONS A-1 

COMPILING AND EXECUTING A PASCAL PROGRAM A-7 

COMPILING, EXECUTING, AND ANALYZING A PASCAL PROGRAM A-1 
COMPOUND STATEMENTS 4-4 

CONST 3-2 

CONSTANT DEFINITIONS 3-2 

COR 5~6 

Cos 6-33 
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COS Function 6-32 
Crunch 6-13 


Date 6-37 

Date Procedure 6-36 

DECLARATIONS AND DEFINITIONS 3-1 
Display 6-37 

Display Procedure 6-37 

DISPOSE Procedure 1-1 

DIV 5-13, 5-15 

DIVIDE BY ZERO A-8 

DO 4-4, 4-12 

DOWNTO 4—4 

Dynamic Allocation Procedures 6-28 
Dynamic Variables 7-3 


E 8-4 

EBCDIC AND ASCII CHARACTER SETS C-1 
ELSE 4-9 

END 38-20, 4-1, 4-3, 4-4 
Entire Variables 7- 
Enumerated Expression 5-11 
Enumerated Types 3-15 
Enumerated Variable 7-6 

Eof 6-15 

EOF Function 6-14 

Ealn 6-15 

EOLN Function 6-15 
ERRORLIMIT A-5 

ERRORS DURING EXECUTION j-e2 
Exp 6-33 

EXP Function 6-33 
EXPRESSIONS 5-1 

EXPRESSIONS BY TYPE 5-5 


FALSE 3-3, A-3 

Field Designators 7-2 

FILE 3-16 

FILE AT EOF A-9 

File Attributes 6-3 

FILE ATTRIBUTES AND MNEMONIC VALUES 8-4 
FILE NOT AT EOF A-10 

FILE NOT CLOSED A-10 

FILE NOT OPEN A-9 

File Types 3-16 

File Variable 7-6 

File-Handling Procedures and Functions 6-13 
Fixed-Point Format 6-25 

Floating-Point Format 6-25 

FOR 4-4 

FOR STATEMENTS 4-4 

Formal Parameter Lists 3-31 

FUNCTION 3-29 

Function Declaration 3-29 
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FUNCTION DESIGNATORS 5-4 


General Procedures and Functions 6-35 
Get 6-15 

Get Operation 6-6, 6-10 

Get Procedure 6-15 


GOTO 4-6 
GOTO STATEMENTS 4-6 


HEAP LIMIT A-9 


Identifier, predefined 9-3 
IDENTIFIERS 8-2 

IF 4-9 

IF STATEMENTS 4-9 

Immediate Options A-6 
IMPLEMENTATION RESTRICTIONS 1-1 
IN 5-10 

INCLUDE A-6 

INDEX OUT OF RANGE A-8 

Indexed Variables 7-2 

Input file 6-9 

INPUT/OQUTPUT AND FILE-HANDLING CONCEPTS 6-1 


Inspection Mode and Generation Mode 6-3 
Integer 3-8, 3-17 
Integer Expressions 5-12 


INTEGER OVERFLOW A-8 

Integer Types 3-17 

Integer Variable 7-6 
INTERPRETATION OF PROGRAM TEXT 9-1 
INTRODUCTION 1-1 

INV PTR REFERENCE A-8 

INV STD ROUTINE A-9 

INVALID CASE A-9 

INVALID CHAR READ A-10 

INVALID OPCODE A-9 


LABEL DECLARATIONS 3-1 

Lazy I/O 6-12 

LINEINFO A-4 

LIST A-4 

LISTDOLLAR A-4 

LISTINCL A-4 

Ln 6-33 

LN Function 6-33 

Logical and Physical Files 6-4 
LOOPS B-e 


MAP A-4 

Mark 6-31 

Mark Procedure 6-30 
Maxint 5-13 

MAXINT 3-3 

MOD 5-13, 5-15 
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New 6-31 

NEW 1-2 

New Procedure 6-31 
NIL 5-14 

NIL POINTER ERROR A-9 
NOBOUNDS A-5 
Non-local GOTOs 1-2 
NOT 5-5, A-3 
NOTAGFIELD A-5 
NUMBERS 8-3 


Odd 6-38 

Odd Function 6-37 

OF 3-14, 3-16, 3-20, 3-22, 4-3 
OMIT A-5 

OPTIONAL ITEMS B-e 

OR 5-6, A-3 

Ord 6-28 

ORD Function 6-28 

ORDINAL EXPRESSIONS 5-2 
Ordinal Types 3-6 

QTHERWISE 4-3 

Output file 6-9 

PACK, UNPACK 1-2 
PACKED 3-14, 3-1 

Page 6-16 

PAGE A-6 

Page Procedure 6-16 
Permanent and Temporary 
Pointer Expressians 5- 
Pointer Type 3-6 
Pointer Types 3-17 
Painter Variable 7-6 
POP A-e 

PRECEDENCE OF OPERATORS 5-2 

Pred 6-38 

PRED Function 6-38 

PREDEFINED IDENTIFIER 9-2 

PREDEFINED PROCEDURES AND FUNCTIONS 6-1 
Predefined textfile 6-9 

Predefined Textfiles {Input, Output) 6-9 
Procedural Parameters 1-2 

PROCEDURE 3-27 

PROCEDURE AND FUNCTION DECLARATIONS 3-26 
PROCEDURE AND FUNCTION DESCRIPTIONS 6-13 
Procedure Declaration 3-27 

PROCEDURE INVOCATION STATEMENTS 4-10 
PROGRAM ABORT A-Y 

PROGRAM BLOCKS e-5 

PROGRAM PARAMETERS e-4 

PROGRAM STRUCTURE o-1 

PROGRAM TEXT 9-4 


F 
1 


i 
3 
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PROGRAM UNIT 2-1 


Program Unit syntax: 2-2 
Purge 6-13 

Put 6-16 

Put Operation 6-7, 6-11 
Put Procedure 6-16 


RAILROAD DIAGRAMS B-1 

Read 6-17 

Read Operation 6-6, 6-10 
Read Procedure 6-17 

Read Textfile Procedure 6-17 
Readin 6-20 
Readtn Operation 6-171 
Readtn Procedure 6-20 
Real 3-8, 3-18 
Real expression» 5-1 
Real Expressions 5-14 


REAL OVERFLOW A-8 
Real Types 3-18 
Real Variable 7-6 


RECORD 3-20 

RECORD BOUNDARY g- 
Record Types 3-18 
Record Variable 7- 
RELATED DOCUMENTS 
Relational Expressio 
Release 6-31 
Release Procedure 6-31 
REPEAT 4-11 

REPEAT STATEMENTS 4~11 
REQUIRED ITEMS B-2 
RESERVED WORD 9-2 
Reserved words 9-2 
Reset 6-21 
RESET A-e 
Reset Operatian 6-6, 
Reset Procedure 6-20 
Rewrite 6-21 
Rewrite Operation 6- 
Rewrite Procedure 6 
Round 6-33 

ROUND Function 6-33 
Run-Time Errors A-7 
Runtime 6-38 

Runtime Function 6-38 


4 


4 
6 
4- 
ns 5-7 


Same Types 3-8 
Save 6-13 

Scope 2-5 

Scope: Blacks 2-5 


Scope: Record Definitions 2-8 

Scope: Recard Variables 2-9 

Scope: WITH Statements e-9 
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Seek 6-22 

Seek Operation 6-7 

Seek Procedure 6-2e 

SET 3-22, A-2 

Set Expressions 5-16 

SET OUT OF RANGE A-9 

Set Types 3-21 

Set Variable 7-6 

Simple Types 3-5 
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